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BASSSFORMAT_INT = Basic format interpreter Bese -1984 9: AX=11 Bliss-32 V4. Pa 
10-Sep-1984 9: 2 £06 BASRTL.SRC Bar ORinT 682: 31 a 
001 ZTITLE eA ser nent te - Basic format interpreter’ 
ote MODULE BASSSFOR =fNT f asic format, interpreter 
st = *2-013' ' File: BASFO ORI NT.B32 EDIT:MDL2013 
on 
4't ; BEGIN 
007 : pee <a lay ca ame ee Op 
'® © 
0908 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 6 ~ 
010 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
Bota : - ALL RIGHTS RESERVED. ® 
. ® 
$018 1 !® THIS SOFTWARE IS gt pe UNDER A LICENSE AND MAY BE USED AND corre * 
0014 1 !* ONLY IN ACCORDANCE WITH TERM SUCH LICENSE AND WITH THE ® 
0015 Tie | SI THE ABOVE COPYRIGHT NOTICE. THIS S ANY OTHER * 
8018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
001 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY © 
ide : ‘ TRANSFERRED. * 
.* 
0020 1 !«# on ete IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0021 1 !«* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
88 ¢ : _ CORPORAT ION. * 
7” ¥ 
0034 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
54 : i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. w 
0027 1 !# & 
Bose : aaah aaa ahaa aan lain taal cain aia 
$080 1 
0031 1 !+4¢ 
its 1 ! FACILITY: 
0033 1! 
bee ' Basic support library - not user callable 
0036 : ABSTRACT: 
0038 1 This is the format interpreter for Basic PRINT USING and FORMATS. 
sre : ; ENVIRONMENT: User access mode, AST reentrant 
904 AUTHOR: Donald G. Petersen, CREATION DATE: 03-May-79 
044 1 | MODIFIED BY: 
045 1! 
004 7 as ase -79 : VERSION 1 
0047 1 1 1-001 = nat 
0048 1! 1-206 ~ Get OT PARAC from SYSSLIBRARY. JBS 22-MAY-1979 
0049 1! 1-003 - Add PSECT declaration and make BASSSFORMAT_INT Ub te 73 DGP 22-May-79 
0050 1 ! 1-004 = Remove comment from switches statement. DGP 2 
51 1 ! 1-005 = The TPARSE parameter block is passed by value using ycilé, Change 
O26 .. 2 the MAP of the formal in each action routine 3-May- 79 
3§ 1 i 1-006 - the TPARSE argument list for the gction, ou fs not quite right. 
bee 1! is needed as a BUILTIN. ODGP ax? 
55 1! 1-007 - So e error routine call to Bas + poe from A rea 1 si, 
2036 1! ormat interpreter knows no about 1/0. Rey 
005 1! 1-008 - hoe BAS$$ prefix to PUKEYWDS ey PR NT OOS ING. pep ob 2a-hay 


i 


ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter ss -Sep-1984 00:29: AX-11 Bliss-32 V4.0 Page 2 | 
ba witht 14- at 90:82 £98 BaSRTL'S C JBASFORINT. 5 2;1 ~ (1) i 
: rH: R38 1 ! 1-009 = Change the names of the STR a ioke et, ot S$ 04-JUN-1979 
; 1! 1-010 - change entrat's Fy K_INTER_STO be oe fix. DGP Jg-Jut-79 
; 60 0 1! 1-011 = Make P be a macro r Father “than $ 14-JUL-19 
; $$) 1 1! 1-012 - elt calls to STRSCOPY. Jes 16-JU 
3 6 ¢ 1! 1-015 - 4 A gp ee ’ BIND rather, yg 2 in DGP 16-Jul-79 
=: @ 065 1 ! 1-014 = Work umerics b sone. 
; 6646 0646 + ! 1-015 = Add Vv PERIOD, - jut -7 
; © 065 1! 1- 1g - Bug fix in anale recision eek: DGP 30-Jul-79 
; ? bee : 1-017 - yes suf E grt can have a (negative) number which won't fit. DGP 
3 0068 1! eH - Retro ate floating into vTpeRRY” DGP So 
: 9 9 1 ! 1-019 = Use REQUIRE roe than ye ved RY te 998°" TPAMAC, SO we can try 
3 0 01! new BLISS compiler. 
Wes 071 1! 1-8 0 = Go back to using LIB Brak . but. a a 4 be name. JBS oe 
Yat. 4 1 ! 1-021 = Initialize all null s ing de sc. point o 0. 
3 ih Soya : 1-022 - prens lace S¥SSCURRENCY, SYSSRADIX PPOINT. "one SYSSDIGIT “SEP. DGP 
° . 0- Oct = 
ci. ve 0075 1! 1-087 - Return all temporary strings allocated from HEAP store. DGP 08-Nov-79 
; gore 1 ! 1-024 = Receive the ygcete factor and pass it along to the conversion routines. 
oc. a 0077 1! DGP 2 ever 
: «6478 0078 1 ! 2-001 = Add routines to use SPANC, SCANC ote instructions instead of 
> 79 0079 1 LIBSTPARSE for performance optinizati ons. Replace use of STRSCONCAT 
5 80 0080 1! with STRSAPPEND in 0 ay ARG where possible. DJB 08-Jun-1981. 
; 0081 1 ! 2-002 - Add support for byte floating, and h floating. PLL 26-Aug-81 
; & 0082 1 ! 2-005 - Add f format for Mefelan’ PLL 8-Sep-81 
; 8 0085 1 ! 2-004 = Add <CD>, <%>, <0>, and ormat characters. PLL 23-Nov-81 
; «(84 0084 1 ! 2-005 = Add support for packed decimal. PLL 12-Jan-82 
3; 8 0085 1 ! 2-006 - Chenge calls to STRSAPPEND to STRSCONCAT so that static string destinations 
; 686 0086 1! will work. PLL 20-Apr-82 
; 6 6BV 0087 1! $007 - 9 low both <CD> and <cd> format. MDL 9~Aug-1982 
ee «|| 0088 1! 2-008 - fix bug in processing underscores; shouldn’t EXITLOOP in SPAN_CONSTANT 
; 0089 1! after ant underscore as there may be more constant following it. 
; 0090 1! MDL 10-Aug-1982 
> oe 0091 1 ! 2-009 = Fix section in SPAN_CONSTANT on underscores. 
: 4 0092 1! A new class was added to CLASS TABLE, mask special, so that SCANC 
; F 0093 1! pitt pick up any format character and not just characters which 
; «94 0094 1! 4 et a format sequence, for underscore. PLL 28-Sep-19 
; #695 0095 1 ! 2-010 - ” Epa ncke ET should only look ahead 1 character when searching 
; Ww 0096 1! tor the start of a valid <> sequence. Other formatting characters 
s 0097 1! SPAN e enreaeeee in the case where <> is in an unexpected place. 
; «698 0098 1! ANT must check for multi-char format sequences after an 
:; 99 0099 1! undefscore. For instance, ‘'$$* must appear in multiples - a single 
: 100 0100 1! * is not a valid vores sequence. So if '_$$' appears. include 
: 101 §i83 1 3 both ‘$$° in the constant 
; 106 1 ; 1! Yet another class was added to CLASS TABLE, so that characters 
3; 10 0103 1! which follod ‘<* can be scanned. 
3: 104 0106 1! PLL 5-Oct-1 
: 105 0105 1 ! 2-011 = make <CD> at the beginning of 3 format sequence a constant in 
; 106 8196 1! order to be consistent with BP2, rather than an error. 
3; 107 0107 1! MDL 9-Dec- 
; 108 198 1 ! 2-012 = fix case of $$<0>##. BP2 treats this as 2 fields; the first bein 
; 109 109 1! ? dollar sign fol lowed by a single digit, and the second a a} 
: 110 110 1! ield with leadin roes. Previously, we had treated this as 
2.) aoe 117 «1! single field. MD i -Dec-1 
: Ne i 1 ! 2-013 - Fix case of a single ynderscore not followed by anything. We 
ae} W567 should just ignore this. Also fix case of <CD at the end of 
7 (116 0114 1! a format string; both these cases cause infinite loops. 
| 


| i ee SF =. 
| BASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-19 729: AX-11 Bliss-32 v4 
ate 4 “ “ 12286871382 99:82:88 EBASRTL SRe BASF OR 
s 445 ott? 1! It is now apparent that whereas VAX-11 BASIC Run-Time code treats 
s ‘18 118 13 underscores not followed by format characters as literals, BP2 
:; 11 0117 1! treats these as something to be ignored. MDL 18-Mar-1983 
; «6118 gti8 1 !e< 
3. 6119 0119 ~+1 
; 120 0120 1 !<BLF/PAGE> 
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| SASSEFOR INT BASSSFORMAT_INT = Basic format interpreter 
; 121 


SSBTTL "Declarations' 
; SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
! 


LINKAGES: 


REQUIRE ‘RTLIN:OTSLNK'; ! macros for all Linkages except STRS$ 
REQUIRE "RTLIN:STRLNK'; ! macros for STR$ Linkages 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSSFORMAT_INT : NOVALUE, ! the Basic format interpreter 


'¢ 

! A possible optimization in the future could be to make these internal 
' routines JSB entry porate. This should be done after the full range 
of planned format characters is implemented (or allowed for). 


HAAS MIVII E & OO 


main driving routine 

find start of formatting sequence 
process single quote format classes 
span various text format classes 
process backslash format class 


DECODE_PROCESS_FORMAT, 
SPAN_CONSTANT, 
SPAN-SINGLE_QUOTE, 
SPAN-TEXT 

SPAN BACKSLASH, 
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66 SPAN_BRACKET, process < > format classes 
67 SPAN_NUMERIC, process numeric format class 
ve OUTPOT_ARG; do all of the formatting 
70 ‘ 
71 ' INCLUDE FILES: 
1! 
iy REQUIRE "RTLIN:RTLPSECT'; ' Declare Psects macros 
o2 ” LIBRARY ‘RTLSTARLE'; ! STARLET Library for macros and symbols 
67 i ‘ 
68 7 ' MACROS: 
$8 0874 : 
0 8 75 
a Fo teeter ste = 0 ox 
= eo e e oO 
8 78 PU_MASK = 4, $: 35 0% 
7% 79 ELEM TYPE ="8, Q. 2. bz, 
75 0 ELEM s 1 0 3 ° e 
45 TAAELONSOLGIT = 3+ Be 38° IE: 
78 bBas CHARACTER = 26, 0, $2, 1%, 
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Declaration BASRTL.SRCJBASFORINT.832;1 
SCALE_FACTOR = 28, 3 1%, 
NEXT. CHAR = 32, 6: 5 6; 


we 


; EQUATED SYMBOLS: 


; 17 1 

; 180 1 

: 1B i 

; ‘ 

; 18s 91 i LITERAL 

; 189 89¢ 1 

: 188 93 1 !¢ 

; 189 94 1! These Literals define the bits in the PRINT USING mask (PU_MASK) 

: 139 8 95 } } yr I ee are well ordered. Action routines take advantage of the 
; 198 O89? 1 i € format is < E_MASK 

; #19 0898 1 ! E_MASK <= E format < R_JUSTIFY_MASK 

; 194 0899 1! Text is >= R_JUSTIFY_MASK 

3; «4195 0900 1 ! Be careful when adding new values 

3 136 901 1 !- 

; #19 902 1 

; 198 0905 1 NUMERIC_MASK = 1, ' numeric format 

3; 199 0904 1 MINUS_MASK = 2, ! trailing minus required 

; 200 0905 1 MASK = 4 ! digit group separator required 
; 201 0906 1 DOLLAR_MASK = é, : eed oa currency required 

: 4 oa : STAR_MASK = 16, ! asterisk fill required 

; 204 0909 1 !6 

; 205 0910 1 ! bit 5 (value = 32) should not be used unless we run out of bits 

3 soe 0911 1 ! The conversion routines use almost the same bits for the same things 
: 207 Betg 1! and bit 5 means strip_trailing_spaces. 

; 208 0913 1 !- 

; 209 0914 #1 

; 210 0915 1 PERIOD_MASK = 64, ! a period is in the format 
BB EMS RBaa ang a A ie 
3 a ii = . ' u e strin 

: ig 0918 1 C_ JUSTIFY MASK = 512, : soneer justi ty the strine 
HE BB EER Pc Og Tere faseteetete strange 
: 216 0331 1 PERCENT_MASK = 4096, : i suppress zeroes mask 

oe Ee eke croak edeeeyevassrons oe 

: 3 2 : K_CVT_FLAGS = 26767, ; turn off stage get interesting to 
3 ' conversion routine 

3 $f 94 $ : K_INTER_STO_LEN = 36, pength of local interpreter store 
; ' in es 

; $8 $9 8 1 K_AST_FLAG = 1, 'Q- bo not disable ASTs 

; $e 94 , : ! 1 = disable ASTs 

: 36 931 1 !¢ 

3 9 § 1 ! ASCII character codes. 

0 BRE 

; 230 935 1 CHAR SPACE = 32: UNSIGNED (8) 

> 231 1 CHAR“EXCLAMATION = 33 : UNSIGNED (8), 

: § 1 CHAR_POUND = : UNSIGNED (8) 

; 938 1 CHAR-DOLLAR = 36 : UNSIGNED (85 

; 34 939 1 CHAR“SINGLE_QUOTE = 39 : UNSIGNED (8), 

3 5 940 1 CHAR_STAR = 42 : UNSIGNED (8), 


‘es ee 
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| BASSEFOR_INT 
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: 1 CHAR_COMMA = 44 : UNSIGNED (8), 

: 1 CHAR“MINUS = 45 : UNSIGNED (8) 

: 1 “PERIOD = 46 SIGNED (85 

; 239 944 1 CHAR-BACKSLASH = 92 : UNS 1 GNED (8), 
: 240 945 1 CHAR-CARAT = 94 : UNSIGNED (8), 

+ 241 946 1 CHAR“C = 67 : UNSIGNED (8), 

3 tg 947 1 CHAR_E 9 : UNSIGNED (8), 

: 26 48 1 CHAR“L : UNSIGNED (8), 

+ 266 49 1 CHAR"R = 82 : UNSIGNED (8) 

: 265 50 1 CHAR“LOWER_C = 99 : UNSIGNED (8) 
ee: 951 1 CHARLOWER-E = 101 : UNSIGNED (85, 
ae 9 2 1 CHAR-LOWER-L = 108 : UNSIGNED (8). 
: 248 1 CHAR-LOWER-R = 114 : UNSIGNED (8), 
: 249 954 1 CHAR_LF_ANGLE = ¢ : UNSIGNED (8), 
3; 250 955 1 CHAR-RT-ANGLE = 62 : UNSIGNED (8), 
: 21 36 1 CHAR-PERCENT = 3 vis RES CB (8), 
: é 957 1 CHAR-ZERO = 48 : IGNED (8) 

; 25 0958 1 CHAR_UNDERSCORE = “4 UNSIGNED (8), 
+ 254 0959 1 CHAR-D = 6 : UNSIGNED (8), 

: 255 0960 1 

5 28 0961 1! 

: 25 096¢ 1 

; 258 0963 1 

3; 259 0964 1 

: hE Rem INTEGES Sole 2 

2 - - - & dl 

3 oe $96? 1 K_SPAN_FRACTION = 5 

: 26 968 1 K"SPAN-FRACTION_NO_E = 4, 

3 64 969 1 

: 265 0970 1! 

: $8 0971 1 ! Classes for SPANC/SCANC table. 

3; 2 0972 1! 

; 268 0973 1 

: 269 0974 1 MASK FORMAT CHARS = 1 : UNSIGNED (8) 
> 270 0975 1 MASK"L = 2 7 UNSIGNED (8), 

> 271 0976 1 MASK-C = 4 : UNSIGNED (8), 

: 2 0977 1 MASK-R = 8 : UNSIGNED (8) 

: 27 0978 1 MASK-E = 16 : UNSIGNED (85 

+ 27% 0979 1 MASK-SPECIAL = 32 : UNSIGNED (8) 

: 275 0980 1 MASK"LF_ANGLE = 64 : UNSIGNED (8); 
5 7 0981 1 

; 7 34-04 1! 

: 278 983 1 | PSECT DECLARATIONS: 

: 279 984 1 

; 280 985 1 

: 281 986 1 DECLARE_PSECTS (BAS); 

3 8 9 1 

3 8 9 .% 

3 284 1 ' OWN STORAGE: 

: 285 1! 

3 1:3 

; 28 5 1 OWN 

3; 288 1 CURRENCY_DESC, 

> 289 1 CU_D 

: 90 995 DIGIT _SEP_DESC, 

: 292 997 1 RABIX_PT_DESC, 


AX-11 Bliss-32 v4.0- 
BASRTL.SRC BASFORINT. 
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ct 


'¢ 
} Functions for numeric format evaluation (see SPAN_NUMERIC routine). 


! descriptor for currency symbol 
! descriptor for digit group separator 
! descriptor for radix point 
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eit Declarations te 1b-Se0-1984 99:82:98 BASRTL  SREIBASFORINT 6 2;1 
3 


ce We tee 


IND 
3 FORMAT = yet at BYT oY 4 OF (CHAR_CARAT)), 
ERCENT = UPLIT (BYTE ('%')), 


* 


wn 


Set up the class table for all groups of characters that will be involved 
in uses of the SCANC and SPANC instructions. This class table is built 
into a PLIT. An ry ee of OWN storage initialition at run time is 

given below to help clarify the classes set up in the PLIT. 


INCR I FROM 0 TO 255 DO 
SELECTONSY 5 OF 


CHAR_DOLLAR, CHAR POUND, CHAR_PERIOD, eer 4 eps QUOTE, 


cs 
CD@ 


1 

: 

1 CHAR_EXCLAMATION, CHAR-BACKSLASH, C : 

1 LASS_TABLE (.1j = MASK_FORMAT_CHARS; 

1 CHAR_L, CHAR_LOWER_L] : CLASS_TABLE [.1] = MASK-L; 

1 CHAR_C, CHAR-LOWER_C] : CLASS_TABLE (.1] = MASK-C; 

1 CHAR_R, CHAR-LOWER_R] : CLASS_TABLE [.1] = MASK_R; 

1 CHAR-E, CHAR_LOWER_EJ : CLASS_TABLE (.1] = MASK_E; 
COTHERWISE : CLASS-TABLE C£.13 = 0; 


Currently 5 f gt classes are used leaving 3 available. 

If more than 8 formatting classes are needed, a second CLASS_TABLE 
will have to be used unless various formatting classes can be grouped 
together (e.g. if MASK_C + MASK_R is passed to the SPANC instruction 
as the mask, all of the four characters CHAR_C, CHAR_LOWER_C, CHAR_R, 
CHAR_LOWER_R would be spanned. 


To add a new format character (or group of characters), the SPAN_CONSTANT 
routine should be modified to coperky look for the posian ins of the 
format sequence. DECODE_PROCESS_FORMAT should then be modified to scan 
for the end of the formatting sequence setting any appropriate flags. 
Information to be communicated to the output conversion routine 
(OUTPUT_ARG) is pessed via PARAM_BLK. The paramter block could 

be expanded to allow for any new flags. 


CLASS TABLE = UPLIT BYTE 


REP CHAR_EXCLAMATION OF (0), 

(MASK FORMAT CHARS) t CHAR EXCL AMAT ION 
REP CRAR = CHAR_EXCLAMATION - 1 OF (0), 
(MASK FORMAT CHARS) , ' CHAR_POUND 

REP CRAR_DOLCAR = CHAR_POUND - 1 OF (OY 

(MASK FORMAT CHARS) ! CHAR_BOLLAR 

REP CRAR_PERTENT = CHAR_DOLLAR - 1 OF TO) 
(MASK_LF"ANGLE), ' CHAR_PERCENT 

REP CRAR™SINGLE QUOTE = CHAR_PERCENT -"1 OF (0), 
(MASK FORMAT CHARS) CHAR SINGLE QUOTE 
REP CRAR STAR = CHAR_SINGLE_QUOTE - 1 OF (0), 

(MASK FORMAT CHARS) ' CHAR_STAR 

REP CRAR_COMMA = CHAR_STAR - 1 OF (0) 
(MASK_SPECIAL), ' CHAR_COMMA 
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H 1 1 

FY 1 1 

3 1 1 

; 1 1 CASK ao CHARS) 1 CHAR PERIOD 

3 1 1 REP CRAR_ZERO = CHAR PERIOD -1 OF (0)7 

: 1 1 CHASE abl -ANGLED » CHAR_ZERO 

; 1 1 REP CRAR“LF ANGLE = CHAR_ZERO - OF (0) 

; 1 1 (MASK FORMAT. ¢ CHAR _LF_ANGLE 

; 1 1 REP P CRAR_C = CHAR “LF _LANGLE = 1 of (0) 

; 1 1 (MASK_C)> CHAR_C 

; 1065 1 REP CRAR|E = CHAR_C = 1 OF (0), 

; 1 1 (MASK_E)> ! CHAR_E 

; 1 1 REP CRAR_L = CHAR_E = 1 OF (0), 

; 1068 1 (MASK_L)> ! CHAR_L 

; 1 1 M4 CRAR. R = CHAR_L = 1 OF (0), 

; 1070 1 ! CHAR_R 

3 1071 +1 EP CRAR’ BACKSLASH = CHAR_R = 1 OF (0); 

3 1078 1 (MASK K_FORMAT CHARS) HAR_BACKSLASH 

; 1073 1 REP CRAR_CARAT = CHAR ~BACKSLASH - - Wor (0), 

; 1074 1 (MASK_S SPEE CIAL) R_CARAT 

; 1075 1 REP P-ERAR UNDERS CORE = CHAR. CARAT’ ee aay) 

; 1076 1 (MASK_ FORMA ' CHAR -unbe score 

3 1077 1 REP SCRAR L LOVER R'C = CHAR -UNDERSCORE = 1~OF (0) 

; 1078 | MASK _C)> ! CHAR_LOWER_¢ 

3 1079 1 ner CRAR’ LOWER_E = CHAR_LOWER_C = 1 OF~(0) 

; 1080 1 )> ! CHAR_LOWER_E 

; 1081 1 REP CRAR_LOWER_L = CHAR_LOWER_E - (0) 

; 37 1088 1 (MASK_L)> ! CHAR_LOWER_L 

3 1083 1 REP CRAR. _LOWER_R = CHAR_LOWER_L = 1 OF~(0) 

: 379 1084 1 (MASK R)> ' CHAR_LOWER_R 

; 380 1085 1 REP rie CHAR_LOWER_R OF (0) 

; $1 1086 1 ) : VECTOR (258, BYTE, UNSIGNED); 

3 4 1087 1 

; ioee 1! 

3; 384 1089 1 ! EXTERNAL REFERENCES: 

3 389 1090 1! 

3 ry 1091 1 

: 7 1098 1 EXTERNAL ROUTINE 

; 388 10935 1 LIBSCURRENCY ' currency symbol 

; 389 1094 1 LIBSRADIX_POINT, i radix point 

; 390 1095 1 LIBSDIGIT_SEP, : digit group separator 

; 391 1098 1 BASSRSET : NOVALUE, ' Basic 

3 +4 1097 1 STRSGET1_DXx, } Allocate a string 

; 39 1098 1 STRSFREET_DX, ! Free a string 

3 394 1 1 STRSCONCAT, ' Concatenate strin ngs 

3 395 118 1 STRSRIGHT, ! Extract right part of a string 
3 ] 1101 +1 STRSLEN_EXTR, ' Extract a substrin 

3; 39 1198 1 LIBSSTOP, ! Signal internal RTL errors 
; 398 11 1 STRSCOPY_DX_RB : STRSJSB_COPY_DX, ! Copy to a string 

; 399 11 1 STRSCOPY-R_RAB : STRSJSB_COPY_R, ' Copy to a dynamic string 

3 1105 1 BASSS$STOP = NOVALUE, ! Signal errors and stop 

3; 401 11 1 BASSCVT_OUT_F_E, ' convert float to e a 
3 rey 11 1 BASSCVT_OUT_D_E, ' convert double to E format 
: 40 1108 1 BASSCVT_OUT_F_F, ' convert float to F format 
3; 404 11 1 BASSCVT_OUT_D_F, ' convert double to F format 
: 405 1339 1 BASSCVT_OUT_D_G, ! PRINT format conversion routine 
3; 406 1111 «71 BASSCVT_OUT_G_G, ! PRINT format conversion routine 
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40 SCANC, 

41 SPANC, 

g CVTLD; 
38 4 


een - Basic format interpreter 


EXTERNAL LI 
BASSK_P 
OTSS_FA 


prevents the use 
any BUILTIN for t 
registers could be used to return information from the instructions 

that currently requires a computation after the BUILTIN has been executed. 


In version V3 of VAX-11 Bliss=-32, LOCC and SKPC will be allowed as BUILTINs 
so that the use of CHSFIND_NOT_CH could be replaced by the BUILTIN SKPC 
with output registers. 


' 
| 
j 
i 
' 
| 
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ee ee > 


5 
-Sep-1 729: AX-11 Bliss-3 
~3e07 138s 99:82:98 eaXsat ObheSaa 
convert gfloat to ; format 
convert gfloat to F format 
sonvers float to E format 
PRINT format conversion routine 
convert hfloat to F format 
convert packed to F format 


convert packed to E format 
convert packed to general format 


! Print Using format error 
! Fatal internal RTL error 


In version X3-669 of VAX-11 Bliss-32, output registers will be allowed 
for the SCANC and SPANC instructions (there is a bug in V2.1-667 that 
f output registers with SCANC and SPANC or 

These output 


- ——_ ~ - — — “ —_— — —_ —— - —— 


| 


a 5 

| BARS EFOR IMT BASSSFORMAT_INT = Basic format interpreter 1o-se9°19 4 90: 87:06 ret Bliss-32 eras Page 10 
1 BASSSFORMAT_INT = external entry point 14-Sep-1984 11:54: BASRTL.SRCIJBASFORINT.B52;1 (3) 
'3; 640 1144 1 ZSBTTL Pheer OnmaT INT = external entry point’ 

; rt 1332 : GLOBAL ROUTINE BASSSFORMAT_INT ( ! Basic format interpreter 

i 66 W109 1 LEMENT ' element to format 

> 444 1148 1 ORMAT_§TR i string containing the formatting information 

3; 4465 1149 #1 ELEMENT TYPE, ! data ype of the element 

3: 44 11 » 1 RET_STRING, ! where to return the result 

; 44 11 1 RET_FORMAT ADR, : address of the next char in format string 

; 44 11 § 1 BAS_SCALE_FAC ! Scale factor (-6 <= x <= 0) 

5 re? 1 i : ) :"NOVALOE = 

> 451 1 5 2 BEGIN 

; ¢ : 1189 Les 

5 2 ¢ 1328 FUNCTIONAL DESCRIPTION: 

: 64 5 1160 2 This is the format interpreter for Basic Print Using and FORMATS. 

; 45 1161 : It will interpret the format string and call the appropriate output 

3 $28 1188 } conversion routine. 

: 460 1164 i Note that this routine will be called for each item in the format 

; 461 1165 : list. Thus if there are 10 items in the format List and 1 formatting 
3 re | 1198 : sequence, this routine will be called once for each item (10 times). 
; 46 116 ! If the PRINT USING is in a loop of 1,000 iterations, this routine 

3; 4646 1168 : will be called once for each item-iteration or 60 times 

3; 465 1198 ‘ in the above example. Thus the format sequence will be decoded 

3; 4 1170 ; 10,000 times. There is obvious room for improvement here by having 

; 46 1171 $ a@ separate routine to set up the PRINT USING paramater block with 

; 468 116 : the formatting information. Note that the paramater block 

: 469 117 } gurventty used only handles one format sequence at a time. 

3; 470 1174 $ Some higher level caller would have to save however many decoded 

; oz) Ee PRINT USING parameter blocks might be needed. 

: 467 1179 i The routines in this module would benefit from RTL routines that 

3; 4746 1173 ! rovide STRSAPPEND with multiple source string descriptors and 

3 $22 4 TRSAPPEND_R capabilities to append the source string by reference. 

: 677 1181 i The PRINT USING support implemented here provides for upper 

3; 478 11 ¢ : and lower case ext formatting characters (L,C,R.E and |,c.r.e). 

; 479 118 : PDP-11 BASIC-PLUS=-2 only allows upper case - lower case letters 

; 480 1184 ! (l,c,r.e) are treated as constants. Thus the capabilities provided 

3 ret YH here are not strictly a superset of the PDP-11 capabilities. 

: 45 1187 ; FORMAL PARAMETERS: 

: 485 1189 i ELEMENT. rx.r element to format 

; rey, 1190 : FORMAT _STR.rt.dx ptr ing containing the formatting information 
3; 4 1191 ‘ Note that throughout this module, *.dx* is used 
3; 488 1136 ! for FORMAT_STR where in fact it only supports 
3 6489 119 ' *.dd' and *.ds'. We need a notation to specify 
3; 490 1194 ' *.dd’ and *.ds‘. 

: «491 1195 : ELEMENT _TYPE.rl.v data type of the element 

; 49 1196 : RET_STRING.wt.dd where to return the result 

; 49 119 : RET" FORMAT _ADR.wl.r address of next char in Tocmet string 

3 rhs: 1138 BAS" SCALE_FAC.rb.v Scale factor (-6 <= x <= Q) 

: 496 1200 2 ' IMPLICIT INPUTS: 
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BASSSFORMAT_INT = external entry point 1228 


i : wv 
; £99 : 
IMPLICIT OUTPUTS: 
; a 
4 COMPLETION CODES: 
NONE 


SIDE EFFECTS: 


Disables ASTs and re-enubles them if they are enabled at entry 
based on whether K_AST_FLAG is set. This flag is provided 
for performance testing of the options. 


Oe ee ee ee 


'¢ 
! Allocate the parameter block and some local working storage for the 
action routines. 


a ad ad 
DONOUSWN—O 


LOCAL 
AST_STATUS, 
PARAM_BLK : BLOCK CK_INTER_STO._LEN, BYTE); 


BAS_SCALE_FAC : VECTOR (1 
RET-FORMAT_ADR : REF VECTOR 
FORMAT_STR™: REF BLOCK C, B 


BYTE, SIGNED), 
TE); 


OONOUVEWN Oo 


'¢ 

! Clear the return string as it may already have data in it. By copying 

! a null string to the return string, we can make it null, avoid using 

! a first time flag in the action routines (to do a copy instead of a con- 

; catenate to the return string the first time), and always use concatenates. 


WAIANAE POPPIN PININPNIDY 2 OO OO 


Ww 


wn 


STRSCOPY_R_R8 (.RET_STRING, 0, REF (0)); 


SSLEAE 


'¢ 
! Do the first time initialization of the currency, radix point. and digit 
separator symbols. Default to '$*, ‘.", and ',* respectively. 


WMPwn—o 


IF .RA_D EQL 0 
THEN 
BEGIN 
LOCAL 
DIGIT_SEP_STR : BLOCK (8, BYTE), 
RADIX"PT_STR : BLOCK f . BYTE), 
ie CURRERCY"STR : BLOCK (8, BYTE); 


Initialize a dynamic string to a null string. It will be expanded as necess- 
. ary. 


Fe et et et ek te at et 


wu 
-—OC Cane 


a ee a a ee ee ee ee ed ed ed od 


PAAMANNA ES BEEP EEE SEW 


God ust0 2 O00 WON Wi =O OOO WOME —O SOs WON UU OO OO0 WOU ODee 


DUD PUL PUDV PIPPI PID PVIPU DVL DUDA PTSPUDU PUSS SISTA STS IIIT 
w 


ww 
wh 


roe 


=32 V4.0-74 


YOASRTL SRE SBASFORINT B92: 1 


AX-1 


Be 99:52:53 


° 6 
16-Sep-1 
14-Sep-1 


preter 
nt 


INT = Basic format inter 
INT = external entry poi 


BASSSFORMAT 
BASSSFORMAT 


_BASSSFOR_INT 


o 
c 
.@ 
o> 
a 
oc 
zo *e es oe 
“se ~~ ~~ ~ 
” - -_- - 
De 
” " " “ 
-o 
2— o oOo oOo 
_ ad aw 
=2 2k 
= 2 z z 
oe w aw ww 
2 ~ ~ ~ 
w a a oe 
on ” ” ” 
ow < <= « 
vor . a - i 
oO w w w 
“#£c <« ” ” ” 
wr at ae a A 
bs ta 
cere yo] f z z ce 2 
-a ere sere zc -_ ws w [ on | w 
ts -a -a - . = o- = o =z ed 
wm ‘es te . ow <« —“ _ ole ws = (mn) 
aw wn ww wes — 4 -~oO o o 
>< aw awn nor o> ~w ow ~ ws a ec -~ ws 
-o >< >< uou2Zzo ye) — +e a - - * 
au - - ZOoOz oe ua wer © wee Ww ce -~ 
‘6 av av ouo ~c 2 Ya §-& Ye ‘nn - « 
prapw4 Cm ‘6 at «al = ow me WY Me aw yy &- 
PARA+s ww at at . oo vo at 6 «wy (ic — weet 'w 
WYO AP+s GMM :s ms -Cc a > +e © Bi ee BwY Ys hs 6 
COMM  *MWIVIO VO NT cnr our ~ —- amis - 1 wre 
anannomMwuw oOoWwWnwm 2 ttre -_— —~ 2z- — “a. era eR z-—a. 
iT) ean aoHU ce -~ -+ oO Wie " w | xem = 1 un 8 
nur “ coca ww ee ~a > et ee ee 1 a) <= x 
a] a wie num oOror- < cod -—-oca °o — Oa oe cae 
zrerwser ern a eurw (= c Vor - 1HO- ee Ue - OM WwW >.-a 
we Beers Eee wuw 1 ce o quw > o<dcoauo-oO : «& wun 
VA YNZ WY — Wwe wow> or Vv -—- 6 @ wa * two aw ._ = 
22> a9 YMZVAYZ > >v ee w > rs ~~ &— oh ow -~ 
we JOZ>a-i 2 >a - 2 ~o ® Yue a Ye HAMS ww nore 
1HAQOv08 wr JOWF JO - eres “coc hf faz 2720 oOo~vow © 2z 
#¢¢ tuqva s3do ea =< « cs ww a ee I KO I ewe 
SOS s#eeepeese [+ aa 4a 4 - _~ una . Ou Ve ewe wid YZo 
a ee LT RELI SS -nreD> ov — wa wv tt Oe! ave wea 
YUUUSA ALAM A ” thw oe “a> = ” amun | mh a> 1 
MMMNWOGOGVOVOVYU a ~~ ow 8 oO > we <w & waa t wx 
anQAQOMMMNNMMNuWNMWM —w> > oe <« -—> « ~ See ene ted ee > om, 
LAAMIOAOOAA0AQ aAaMmvv we nw ab xu oe vVarF-a MUFOM e~ oa 
‘ea co - ve Zu = <qanw tiem tHe Zuad 
ecaeacac >< so~ Ww ' Zuww ae ‘Zax ‘o<ame . zw 
-—-e-—-—eaeaeaareaanr “mo oO Ss~ <« - =— xa ~Ar--2a~S6r—-O~ —Z£awnr 
NNNNE HER ee ee oucac ae ” Ora it - @Qwoa ' @wo tit ao oa 
§ tt AMMMMMNOM <q-75D7D od <x wwDdDD ae rel) « @°a ly ol 4 wozD- 
Q@aaaq tetttrstrtit Be Savv oc oO ' @Onvow — IASC IMAOO—wW Overs 
WWW ee ee rr OO oe ~v wz ) w 
MMUMMAAAAWYYY WA. @ — 2 w - ” 
SERS te — “ve CC = ” ad 
ee Ks Sa | -23 =e < ws 
ot tog oe oe oe eee Or Oo oo ” ~ 
vouVvaoocoaa¢ac&ca«c <a" 2 a 
mae tO ODS - «6 ~ 
(aYovoyo): 4: 4-4. fe eee) ba A) 2 
— - eo 
2c 608 c 
ao av 
uw a Q 
ee = a 
os < 
4 ' a d 


POWELL UII AF SF FFF SF SSS FF TANNA SF LULL 


DRO K— OCIMMT NOR. DOO MUM TMNOR DHO UM TN OR. DKHOK— CUM TMNOR DOOK UMN DOoewM ys 
MNODODODOODOOOOOOPP-P-PPP-P-_P-F- KR. DDDDDOWDDDADDOAOOKCHOOOAOPOOOOCOCOOCSOCSCS Se eK — 
Parra Ta ra la la rata via atiatiatiatiatiatia ia a a a a a ee a laa ll ll ll al al 


i 


o- w DOOM UM TNO DOO MTN OP WNT OR- 2 id tb Aa) aoaoo 
ARAAARADODOOOL OS ORERRARER ER DODO OSD OOR AOA e ASRS 833333 SSo- 
PDDLDULULULULULVLVLVLVLVLVLVLULVLVULVULVULVULVLVULVLVLVIL UL LULL VULVA AYIA AIA ODOODOOOOOOO 


FPS HS HS HS HS HS HS HS HS ES HD HSER ES HS SS HS HS FS HS SH HS STS HSS HSS HOES ESTE TS TS HS HSS FS HS TS FS HS HS HSS TS FS TS HS *S HHS FESR *E*S 


-o————__—_ _ oo ——___- —__ _—___ -_—_—_—_ — 


ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 1-58 1984 00:29: AX-11 Bliss-32 V4.0-7 Page 13 
bei : BASSSFORMAT_INT = external entry point 1a-8ep-1984 90:82:98 BASRTL.SRCJBASFORINT. 3 2;1 . (3) 
; 611 1315 Rav IX PT_DESC = .RADIX_PT_STR (0); 

3 oig 1 18 A.D = .RADIX_PT_STR ([TJ;~ 
fr 61 131 CTaspiGiT LSEPTDIGIT SEP_STR) 
3 614 1 18 DIGIT_SEP-DESC = .DIGIT SEP_STR (02; 
(3 «615 131 DI_D = .DIGIT_SEP_STR CT 

; 618 1320 4 END; 

3 $6) 1321 4 

; dt | 1 ; END; 

; 61 1 END; 

: 83 1398 

s G § 1 $ i initialize the parameter block and the data base that Print Using 

; ¢ 1 i will use. 

io: nt ie 

; 626 1330 PARAM_BLK pu ESee DIGITS] = PARAM_BLK CCHARACTER] = PARAM_BLK CFRACTION_DIGIT] = 
: 627 1 31 PARAM_BLK [PU_MA 

3 628 1 : PARAM_BLK CRET SiR) = RET STRING; 

3 394 1 ; PARAM_BLK BLER = 

; 630 1334 PARAM-BLK CELEM. TYPE MELEME YPE; 

; 631 1 3 PARAM_BLK SCALE. FACTOR] = BAS "SCALE: FAC CO]; 

; O36 1336 

; 63 1337 '¢ 

; 634 1338 i The format decoding routine takes over here oe calls the output 

; 635 1339 i conversion routine after setting up PARAM_BLK 

3 636 1340 ie 

; 63 1341 

; 638 1 4g IF NOT (DECODE_PROCESS_FORMAT (.FORMAT_STR, PARAM_BLK)) 

; 639 134 THEN 

; 640 138 

3; 641 1345 '¢ 

; 646 1346 i Signal a fatal internal error in the ALL errors should be caught 
: 646 1347 i in the reutaee called by DECODE "PROCESS FORMAT. 

> 644 1348 ie 

; 645 1349 

; ong 1339 LIBSSTOP (OTSS$_FATINTERR); 

3 668 1382 RET_FORMAT_ADR (0) = .PARAM_BLK CNEXT_CHAR); 

3; 64 135 RETORN; ; 

: 650 1354 1 END; ! End of routine BASSSFORMAT_INT 


-TITLE BASSSFOR_INT BASSSFORMAT_INT - Basic format int 
erpreter 
-IDENT \2-013\ 
-PSECT _BASSDATA,NOEXE, PIC,2 
00000 CURRENCY OF ot 


00004 CU_D: ;BLKB 
00008 DIGIT_SEP DESC: 
000¢ -BLKB 
0010 RABI. PT -DESC: 


00014 RAD: -BLKB 


Pr FP ES 


; 


rum 
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PIC,2 


SREIB SFORINT. 892; 1 
SHR, 
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BASRTL. 
BASSCODE ,NOWRT, 


»PSECT 


dD 6 
erSepet9ge T1iSe:58 


INT = external entry point 
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BASSS$FORMAT 


BASSSF OR, INT 
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pele 


LIBSRADIX_POINT 
_DX 
Y 
F 


STRSFREEI 
LIBS 
$cv 


RB 
AS 


6 
OUT_D_E 


SEP, BASSRSET 
Pe 

fr 
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T 
a 
i 
P, 


TRN BAS$$STO 
TRN BASSCVT 
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14 
oc 
04 


000000006 


EC 


000000006 


FC 


000000006 


F4 
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O7FC 00000 
5A 00000000" EF 9E 00002 
59 000000006 00 2 00009 
rm E Be Oo01S 
52 E 9E $018 
1 D4 00018 
50 1 AC DO QOO1A 
000000006 00 19 OO1E 
6A D oonse 
78 is 0026 
AE 020E0000 8F D0 00028 
18 AE 04 00030 
AE 020E0000 8F D0 00035 
10 AE 04 00038 
AE 020E0000 8F 00 00035E 
08 AE 04 00046 
04 AE 9F 00049 
00 01 FB 4 ¢34 
7E D4 0005 
69 01 FB 00055 
AA 04 AE 70 et 
52 04 00050 
09 50 D1 Q005F 
of 12 00062 
2 D6 00064 
01 OD sve 
69 01 FB b5 
00 " 01 Pe O0GE 
Pe be 00078 
69 01 FB TA 
ba oc as 7D QOO7A 
05 52 €9 0007F 
3 DD 000 
69 1 FB Q00 
14 AE 9F 00087 
00 gl FB QO08A 
E D4 00091 
69 01 FB 00093 
AR 14 AE 7D 00096 


6 
1h-sop-1986 
1e-8ep-1984 


18: 


28: 


-ENTRY 


:29: AX-11 Bliss-32 V4.0-74 
90:82 £98 BISRTL SAE IBASFORINT B42: 
BASSCVT_OUT_F_F 
BASSCVT~OUT-D-F 
BASS$CVT-OUT-D-G 
BASSCVT-OUT-G-G 
BASS$CVT-OUT-G-E 
BASSCVT-OUT-G_F 
BASSCVT~OUT-H-E 
BASSCVT-OUT-H-G 
BASSCVT"OUT-H- F 
BASSCVT_OU T"PuF 
BASE -BUTEt 
BASS$K_PRI usieo 


peer INT, Save R2,R3,R4,R5,R6,R7,R8B,-; 


10 
SYSSEETAST. RO 
#60, SP 
(SP), R2 
Ri 
RET STRING, RO 
STRSCOPY_R- R8 


3 
Serigetsy he Ae SEP_STR 


D 
Osee rT ose 6, RADIX_PT_STR 
RADIX_PT +4 

beet dhe y CURRENCY STR 


CURRENCY_§T 
CURREN NEY" STR 
ESSCURRENCY 


#1, SYSSSETAST 
CURRENCY_STR, CURRENCY_DESC 


R 
AST_STATUS, #9 
1$ 


R2 
#1 
#1, SYSSSETAST 
RADIX PT STR 

=(SP) ee ae POINT 


#1, SYSSSETA 
RASLEAPT.SIR, TRADIX_PT_DESC 


FYSSSETAST 
yi 
" gob TSRDTCIT SEP 
SYSSSET 


AST 
ane _SEP_STR, DIGIT_SEP_DESC 


Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Ge Ge Ge Ge Se Se Se Se Se Fe Se Se Fe Se Se Se Fe Se He Se Se Se 


roe 


1145, 


1241 
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ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Page 16 
Bett . BASSSFORMAT_INT = external entry point 13-88-1382 90:82:98 EBASRTL SRE BASFORINT. $251 . (3 
05 i E9 00098 BLBC~——s«aR2, - 38 : 1307 
DD PUSHL # : 
69 1 FB OOOA CALLS #1, SYSSSETAST : 
0 AE D4 OA 3$: CLRL =: PARAM_BLK+4 : 1331 
7+ P A CLRL PARAM-BLK+24 : 
f AE A CLRG PARAM"BLK+16 : 1331 
1 AE AC D AC MOVL RET_STRING, PARAM BLK : 1 3¢ 
AE 04 AC DO 00081 ELEMENT, PARAM BLR+12 : 1 33 
4 AE ¢ AC p 086 MOVL ELEMENT TYPE, PARAM BLK+8 | 
8 AE 18 «AC 00 CVTBL BAS_SCACE_FAC, PARAM_BLK+28 + 1335 
1C =AE OF 000C PUSHAB PAR K > 1342. 
08 aC OD poe PUSHL FORMAT STR : 
0000v CF 0 4] 0C6 CALLS #2, DETODE_PROCESS_FORMAT ; 
OD 50 €8 000CB BLBS) sé ; | 
000000006 8F DD OO0CE PUSHL #OfS$_FATINTERR : 1350. 
000000006 00 01 FB 00004 CALLS #1, LT 3 / 
14 BC 3C «= AE-—s«OO «00008 4S: MOVL § PARAM_BLK+32, @RET_FORMAT_ADR > 1357 | 
04 000E0 RET : 1354. 
; Routine Size: 225 bytes, Routine Base: _BASSCODE + 0105 


; 651 1355 1 


—_——— mises osant 
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att DECODE PROCESS. FORMAT = main driv ng’ rout ine 107380-1 384 9:82:98 EBASRTL SRE BASFORINT B82; 1 


; 653 1 $ 1 ZSBITL “DECODE_PROCESS_FORMAT = main driving routine’ 

; 2 : ! : ROUTINE DECODE_PROCESS_FORMAT ( 

3; 6 $ 1 j 1 P_FORMAT STR, ! format string 

; 6 ! 69 } P™PARAM_BLK) = ! print using parameter block 

; £35 1 °¢ BEGIN 

; 660 136 

; 661 1364 1+ 

; 666 1365 } 

3 oe? ; $8 FUNCTIONAL DESCRIPTION: 

; 665 1368 ; The plan of attack is to locate the start of the formatting sequence. 
3 O98 1369 : ALL characters up to the formatting sequence are concatenated onto 

; 66 1370 the return string. A parameter block is then set up based on the 

; 668 1371 : formatting information and OUTPUT_ARG is called to do the 

; 669 137 : actual formatting concatenating the result to the return string. 

; 670 137 : The beginning of the next rereeee Sag sequence is then searched for 

; 671 1374 ; and all characters up to this next formatting sequence are concatenated 
3 O76 : a onto the return string. 

; 674 1377 ! The SPAN_CONSTANT routine will position CHAR_CNT af the last character 
: 675 1378 ’ before the ga ta sequence. CHAR_CNT = 0 implies that no leading 
; 676 1379 ; constant was found. The constant string up to the formatting sequence 
; 677 1380 : is copied onto the return string. If no formatting sequence 

; 678 1381 } is found, 0 is returned by SPAN_CONSTANT and a print using format error 
: 679 1382 ; is signalled; otherwise 1 is returned by SPAN_CONSTANT. 

: 681 1384 ; After the leading constant is located, the proper formatting Soquannn 
3 68 130? } is located and process. Then the trailing constant is processed. 

5 one et The calling structure of the routines is as follows: 

; 686 1389 ’ BASSSFORMAT_INT 

; 687 1390 : DECODE_PROCESS_FORMAT 

; 688 1391 ' SPAN~ CONSTANT 

; 689 1 3 : SPAN_SINGLE_QUOTE 

: 690 139 ! 

; «(691 1394 ! SPAN_BACKSLASH 

; «69 1395 : SPAN_NUMERIC 

; 69 1396 : OUTPOT_ARG 

3 694 eye : SPAN_CONSTANT 

; 695 1398 ; 

; O98 1399 ! CALLING SEQUENCE: 

3; «69 1400 : 

3; 698 1401 i STATUS.wlc.v = DECODE_PROCESS_FORMAT (P_FORMAT_STR.rt.dx, 

3 444 1606 4 P_PARAM_BLK.mr.r) 

: 700 1405 2! 

3 44 ty FORMAL PARAMETERS: 

3; 0 1406 : P_FORMAT_STR - address of string descriptor for format string 

: re 1697 P-PARAM_BLK - address of print using parameter block 

3 4) 1209 ' IMPLICIT INPUTS: 

: 70 1410 : ’ 

; 708 1411 : CURRENCY_DESC = descriptor for currency symbol 

; 709 1412 : 


ee ee 


- —---- a 


| Ho 
| BASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep 4 9: AX-11 Bliss-32 V 
BAST DECODE_PROCESS_FORMAT = main driving routine 14-Sep 71382 90: 2 £98 BASRTL.SRC saeroninr oS2: :1 
; r19 1413 ' IMPLICIT OUTPUTS: 
: 71 1414 i 
: ig ide $i cot 
; gi 1217 i COMPLETION CODES: 
: 16 1218 i 1 - routine completed successfully 
3 ne 1° Y : 0 - error 
: 719 14 i SIDE EFFECTS: 
: 720 14 § ! 
: 721 1424 i NONE 
a ¢ 1425 ! 
ee 14 $ tee 
i oSe 1258 5 BIND 
> 726 1429 PARAM BLK = (.P PARAM BLK) : BLOCK C, BYTE 
> 727 1430 FORMAT_STR = (.P_FORMAT “$TR) : BLOCK C, BYTE); 
Be baw 
; 4 ’ 1° 5 CURRENCY_DESC : BLOCK C, BYTE); 
a é 1435 2 LOCAL 
Te 1436 CHAR_CNT; ! keeps track of offset from beginning 
3 : 1238 i of format string 
: 7 1439 2 CHAR_CNT = ,FORMAT_STR CDSC$W_LENGTH); 
: 737 1440 2 CHARCNT = 0; 
OG 
g + 
; 740 1208 i SPAN_CONSTANT returns 0 if there is no format sequence or a null format 
3; 741 1444 st ring. 
im 
+ 764 1409 IF NOT SPAN_CONSTANT (FORMAT_STR, .PARAM_BLK CRET_STRJ, CHAR_CNT) 
: oe 1ee8 § tM occiy 
: 747 1450 BASSS$STOP (BAS$K_PRIUSIFOR); 
: 768 1451 RETURN 1 ' return if error 
: 749 145¢ END 
; 750 145 
: 751 1454 2 ELSE 
3 Pg 1455 BEGIN 
oer 
; 755 1458 i j Decode and process formatting sequence. 
me Oe 
: 738 1461 BIND CHAR = (.FORMAT_STR CDSCSA_POINTER] + .CHAR_CNT) : BYTE; 
: 760 1283 SELECTONEU .CHAR OF 
igs i 
: 76 1466 CCHAR_SINGLE QUOTE) : 
: 764 1467 4 BEGIN 
: 765 1468 4 CHAR_CNT = .CHAR_C 
: 766 1469 4 SPAN~ SINGLE “Quote CH onnai _STR, PARAM_BLK, CHAR_CNT); 


= 


6 
ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 14-56 =1984 229: AX-11 Bliss-32 V4. 

543) ; DECODE_PROCESS_FORMAT = main driv ng’ rout ine 1e-8ep-1984 90:82:06 BASRTL.SR atisagronint. aS. 31 
é rer 137 2 16 OUTPUT_ARG (PARAM_BLK); 

: reg 1472 4 | If there is an underscore in he text format serine. the next character 

; 770 1475 4 ! should pe appended into a trailing constant. “y &. other characters which 

; 77) 1476 4 ! should be port et of the trailing constant will be handled in the next call 

3 ae 1002 ? to SPAN_C 

; 77% 1279 4 SPAN_CONSTANT (FORMAT _STR, .PARAM_BLK CRET_STRJ, CHAR_CNT) 
Rm BG ~ 

; re 1480 CCHAR_POUND] : 

Ve .. 1481 4 BEG? N 

3 77 14 ¢ 4 CHAR_CNT = Pore CNT + 1; 

; 780 14 4 PARAR BLK CPU MASK) =. PARAM_BLK CPU_MASK] OR NUMERIC_MASK; 

: 781 1484 4 cag BLK CINTEGER piGits) = 1; 

; 78 1485 4 AN_RUMERIC ¢ K SPAN INTEGER, FORMAT_STR, 

; 78 14 4 HAR_C tn PARAM_BLK); 

3; 786 1487 & OUTPUT_ARG (PARAM BLK) 

et: me 

: 78 1490 CCHAR_DOLLAR : ! floating currency 

mB URE, 

3 e 

; 790 1298 i The SPAN_CONSTANT routine will have insured that the intial part of the 

; 791 1494 ! formatting sequence is ‘$$’. 

Re i Eh 

> 79% 1499 4 BEGIN 

; 795 1498 4 CHAR_CNT = arte + 2; 

; £36 1499 4 PARAR_BLK [ MCT 2 , PARAM BLK CPU_MASK] OR DOLLAR_MASK 

; 79 1500 4 OR N NUAER RIC_MASK 

: jas | 133) i < PARAM_BLK CINTEGER ~Digiis3 = 1 + .CURRENCY_DESC CDSC$W_LENGTH); 
: 800 1308 4 i *, *<%>" or *<0>* could follow "$$". Check for this before scanning the rest 
; 801 1506 4 |! of the format string. Don't check for <0> anymore as of edit 2-012 to be 
3 35 1383 ? i. compatible with BP2. 

; 804 1507 4 kee BRACKET (CHAR_PERCENT, FORMAT_STR, PARAM BLE. CHAR CNT); 
3 805 1508 4! SPAN-BRACKET (CHAR-ZERO, FOR RMAT 3" PARAM BLR, CHAR_CNT); 

; 806 1509 4 SPAN-NUMERIC (K Span INfEGERN » FORMAT_S 

; 80 1510 4 HAR_CNT, M_BLK); 

3 08 1511 4 OUTPUT_ARG (PARAM BLK) 

3 +4 1316 END; 

: 811 1342 CCHAR_STAR] : ' asterisk fill 
OWE. 

: 14 1319 i The SPAN_CONSTANT routine yt have insured that the intial part of the 

3; 815 1318 j_formatt ifg sequence is ‘t* 

He 

: 818 13 1 4 BEGIN 

3 19 15 § 4 CHAR_CNT = ge 

: 820 15203 4 PARAR_BLK [ GAAS = Yama _BLK CPU_MASK] OR STAR_MASK 

3 1 1524 4 ay UPMERIC_MASK 

: 1525 4 PARAM_BLK cINTEGER “Digits? = 

: 1826 4 !¢ 


= | 


«———————_ SS 


| BASSSFOR_INT BASSSFORMAT INT = Basic format interpreter ide “19 9: AX-11 Bliss-32 V4.0 P 0 
att DECODE_PROCESS_FORMAT = main driving routine 12-808-1 38 90: ? 98 BASRTL.SRC IBASFORINT. ah, :1 wey (3 
7 ! A *<d>' ¢ coyld follow ‘**", Check for this before scanning the rest of the 
: format string. 

; SPAN BRACKET (CHAR xPERCENT FORMAT_STR, PARAM_BLK, CHAR_CNT); 

SPAN_NUM EGER. _NO_E, "FORMAT_STR- 
tnr? rm in 
OUTPUT . ake ak cn, BLK) ~ 


Wwnr—O0O@ 


uw 


CCHAR_PERIOD) : 
BEGIN 


MEW —OOOnNOuUS 


'¢ 


<o 


3 1 4 

3 1 4 

3 1 4 

3 1 4 

3 1 4 

3 1 4 

3 1 4 

4 1 

3 1 

3 1 

3 1 4 

| ib 

; 1540 4 | The SPAN_CONSTANT roytige yitt have insured that the intial part of the 
3 1541 4} formatting sequence is '.# 

$ ) 1542 & i- 

3 0 1545 4 

3 1 1544 4 CHAR_CNT = ele ra CNT + 2; 

; ¢ 1545 4 PARAM BLK MASK] = .PARAM BLK CPU_MASK] OR PERIOD MASK 
3 1368 4 OR Oevare RIC_MASK; 

> B44 1547 4 PARAM_BLK CFRACTION DIGIT) = 1; 

; 5 1368 4 SPAN AN_RUMERIC < SPAR FRACTION, * FORMAT STR, 

; 846 1549 4 HAR_C AM_BLK); 

3; 847 1550 4 OUTPUT_ARG CPARAM BLK): 

3 a8 132) ; END; 

3 B50 188 CCHAR_BACKSL ASH) : 

; 851 1554 4 BEGIN 

3 B26 1555 4 CHAR_CNT = .CHAR_C 

; 833 1338 é IF NOt SPAN *BACKSLASH * FORMAT _STR, PARAM_BLK, CHAR_CNT) 
; «6855 1558 BEGIN 

3 2$ 1559 ete (BASSK PRIUSIFOR) ; 

; 85 1560 RETURN 1; T return if error 

; 858 1561 

; 859 1266 

3 1565 4 ELSE 

; 861 1564 4 OUTPUT_ARG (PARAM_BLK) 

: § 1863 H END 

3 1369 ; 

3 5 1568 CCHAR_EXCLAMATION) : 

3 1368 4 BEGIN 

g 1 0 4 CHAR_CNT = acre 

: 1571 4 PARAR _BLK Pu RASH : " Pinan _BLK CPU_MASK] OR L_vUSTIFY_MASK; 
3 1378 4 PARAM BLK CHARAC 

; 157 4 OUTPUT ARG CPARAR. ete 

; 1574 oe 

3 1575 

3 1 16 '¢ 

: 157 i The SPAN_CONSTANT routine has insured that a valid ‘< >" sequence 
: 1578 i is present. 

3 1579 ie 

3 1580 

; 13 1 ; CCHAR_LF_ANGLE) : 

: 15 : 4 BIND CHAR2 = (.FORMAT_STR CDSCSA_POINTER] + .CHAR_CNT * 1) : BYTE; 


sstyroie 


Kk 6 
ASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 229: AX-11 Bliss-32 V4.0-74 p 1 
ECODE_PROCE S_FORMAT = main driving’ routine 12-808- 1982 90:82:98 BASRTL.SRC BASF Onint 82:1 a (3) 
SELECTONEU .CHAR2 OF 

PEnAR PERCENT): 

BEGIN 

CHAR_CNT = .CHAR_CNT # 3; 

PARAM_BLK CPU_MASK] = -PARAM BLK CPU MASK OR PERCENT_MASK 

PARAM_BLK CINTEGER_DIGITS] = .PARAM BLK CINTEGER DIGITS] + 1; 
SPAN_RUMERIC (K SPAN INTEGE . FORMAT_STR, CHAR_CRT, 


AM_BLK); = = 
QUTPUT_ARG (PARAM_BLKY 


CCHAR_ZERO): 
BEGIN 


CHAR_CNT = .CHAR_CNT + 3; 
PARAM_BLK CPU_MASK] = .PARAM BLK CPU_MASK] OR ZERO_MASK 


K; 
PARAM BLK CINTEGER_DIGITS] = .PARAM_BLK CINTEGER_ DIGITS) + 1; 
SPAN_RUMERIC (K SPAN INTEGER, FORMAT_STR, CHAR_CAT, 


BL 
OUTPUT_ARG (PARAM_BLKY 
END; 


SSSSS SSIS SESS SRE Rw 


S 


BIS AE 


4 

4 

| 

4 

4 

: 

4 

4 

4 TES; 
END; 

COTHERWISE) : 
te 
} This should never happen. 


RETURN 0; ' return if error (this is a fatal 
! internal error) 


TES 
END; 


+ 


MORO 2 SS SS oe 


At this point, any trailing constant in the format string should be 
concatenated onto the return string. 


MEUM —OOONOUEWN oO 


The return from SPAN_CONSTANT is ignored since we do not care at this 
point whether or not the constant string runs to the end of the format 
string. In the initial call to SPAN_CONSTANT, we did care because 

a null formatting sequence must be signalled as an error. If this 

code is executed, a legal formatting sequence has been found and processed. 
SPAN_CONSTANT is taking care to get CHAR_CNT to point just before the 

next formatting sequence (if one exists). 


Morrone 


nO 


ee ee 


SPAN_CONSTANT (FORMAT_STR, .PARAM_BLK CRET_STR}, CHAR_CNT); 


'¢ 
! Now that the trailing constant has been handled; this routine 


POPOOOAAAAAAAAAAAAAAAOAAAASAAAAAOAAOAOAO 


WMA ARIRINIRINRNNNNY — 
SRIFARFUNSSSSSVEARRENLSSaenenraun os 


: 890 
3 894 
: B99 
; 899 
: 90 

: 90 

> 904 
3 905 
: Sor 
3 908 
: 909 


ea a a ed td wd = wd = dd dd 


CDODODOODOWDOOWODOOOODODOVODOOOODOOWOODOVOOO 


SEAFUSLSSON 


rs 
o 


eae OUT ES aes, le er & fs oe 


| 
ASSSFOR_INT BASSSFORMAT INT = Basic format interpreter 1b-se -1 729: AX-11 Bliss- 4.0-74 
pasty’ DECODE PROCESS FORMAT © mein'driving receine  1ackepetone Soisese8 || PASAT Ok sese ze Mei8s 78S. 
; 1 ' has ¢ leted its work. 
LAs ee iin 
3 ss O44 PARAM_BLK CNEXT_CHAR] = .FORMAT_STR CDSCSA_POINTER] * .CHAR_CNT; 
; 164 RETURN 1 
+ 944 1609 
; 945 1648 1 END; ! End of routine DECODE_PROCESS_FORMAT 
003C 00000 DECODE_PROCESS_FORMAT: 
eWORD § Save R2,R3,R4,R5 
35 0090v CF 3 000 MOVAB SPAN_CONSTANT, RS 
2 0 AC 00 0000 MOVL P_PARAM BLK, R2 
34 4 AC 0 9008 VL RMAT_STR, R4 
64 3C O000F MOVZ2WL (R4), CHAR_CNT 
E 04 00012 CLRL T 
§ DD 00014 PUSHL § 
$ DD O16 PUSHL  (R2) 
4 0D 0001 PUSHL R4 
65 3 FB OO1A CALLS #3, SPAN_CONSTANT 
03 0 § 0010 BLBS ~=_—«RO, -18 
OOAF 31 000 9 BRW 
53 06 AG of 1 0023 1$ ADDL3 CHAR_CNT, 4(R4), R3 
27 1 00028 CMPB 3 3=s-s«(R3) > #39 
0 12 00028 BNEQ 
E D6 00020 INCL CHAR gn 
4006 8F BB 0002F PUSHR #*M<R2,SP> 
4 DD 000 3 PUSHL 
0000v CF 3 FB 000 CALLS #3, SPAN_SINGLE_QUOTE 
‘ DD O003A PUSHL R 
Ov00V CF FB 000 ¢ CALLS #1, OUTPUT_ARG 
E DD 0004 PUSHL SP 
DD 00043 PUSHL  (R2) 
4 0D 00045 PUSHL  R4 
65 05 FB 00047 CALLS #3, SPAN_CONSTANT 
00E 31 004A BRW $ 
23 63 91 0004D 28: CMPB Ss (R38), - #35 
0D 1 9050 BNEQ 
t p 005 INCL CHAR_CNT 
04 A2 te BISB2 #1, &(R2) 
14 Ae 1 058 MOVL #1. 20(R2) 
008) 1 909¢ BRW 14$ 
24 63 91 0005F 3s: CMPBs«(R3), #36 
14 \2 0062 BNEQ 4$ 
a: 03 00 ADDL a. CHAR_CNT 
04 ag 8 00067 BISB2 # 
14 A200000000' EF 3¢ 0068 MOVZWL URRENCY_DESC, 20(R2) 
14 «OA 06 INCL (R2) 
1 0 16 BRB 4 
2A 91 78 4$: CMPB ss (R3), #42 
, i 33305 E cua 
04 =A i 080 BISB2 #i?, 4(R2) 


mn 


row 


) 


ta ta 
vw ow S32 Perr 


ono NV mwh oO 


a6 74 Page 23 
~ ic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0 ; 23 
Seer gronint BECODE PROCE S ponmat - asin driving routine 1 30071382 99:82:96 BASRTL. RCIBASFORINT .8 231 : 
a (R2) 3 
| with 4004 f Be 5$ PUSH sacks sho 3 1389 
$ bb O00aE PuSHt #37 : 
0000v CF 4 FB 3 CALLS #4, SPAN_BRACKET = 
0% Hi oF 9 PUSHAB CHAR_CNT ; 
4 DD 0009A PUSHL 4 3 
03 DD 0009C PUSHL f 
2€ 3 31 SA 6$: CPB (R3), #46 ; 1536 
6 2 t Ba ADDL2 #2, CHAR_CNT ; 1544 
F 5 00A BISB2 #65, 4(R2) : 
% A 5 V #1, 16(R2) > 154 
2 sat Pe aay Pustt 2” : 1548 
04 AE oF ates PUSHAB CHAR CNT ; 
54 DD ; 
03 dD 0008 PUSHL #3 : | 
SCF 83 3} bone aS: One (R3), #92 ; 1553, 
aS a co a 
4004 fF BB 00C4 PUSH #"McRO  SP> ; 1556. 
0000Vv ct 03 8 O00ch CALLS #3, SPAN_BACKSLASH 
6 A : 1559 
. 000000006 8F DD 90008 9$: PUSHL #BASSK PRIUSIFOR ; | 
spoon ce oF i CODE BRB 186 : 1560. 
21 63 91 000E1 10$:  CMPB (R3), #33 ; 1568 
| SE DS O00Es TNL. CHAR_CNT 457 
OB BB 00E8 BISB2 #8, 5(R2) : 157 
% A 0 DO OO0E VL “ 4(R2) 132 
| : 
| 3C a3 $1 SOF 11$: cn (RS), #60 ; 158 
| ; 4 SOF MOVZBL 1(R3), RO ; 158 
39 ” $ 91 000FB CMPB OR { #37 ; 158 
: : 
, 2 a A a 
04 +3 1001 F A8 001 3 BSW #49 » 4TR2) : 138 
= 0 en ee ee a 
6 7 t 1§ ADDL2 #3, CHAR_CNT 1609, 
F A 0011 BISW2 #8193, 4TR2) : 4 
wate 20 : INCL  20(R25 : 160 
_ 8s Be He t+ PUSHL R > 1604 
04 H BF 1 *  PUSHAB  CHAR_CNT : | 
RR Bil fae / 
1 0D ; 
0000v CF FB : 158: CALLS #4, SPAN_NUMERIC E1606 
1 "CALLS #1, QUTPUT_ARG : 
pe el e BB 1 f 17$: PUSHL SP ; 1637 


—— 


BASSSFOR, INT 


3; Routine Size: 


ASSSFORMAT_INT = Bost ¢ format interpreter bese ep- 9: 
DECODE PROCESS FORMAT © moindrivingrrectine | 1 90:8? 
2 po PUSHL 
BP Bot PUSHL 
65 3 FB 001 CALL 
20 A2 04 Ae 6E C1 001 ADDL 
50 01 0 90140 188: MovL 
04 0014 RET 
50 D4 00144 198:  CLRL 
04 0014 RET 


327 bytes, Routine Base: _BASSCODE + 01E6 


* Pent 


(R2) 


SPAN_CONSTAN 
CHAR CNT, 4(R4), 
1, RO 


RO 


eSASr oR 


" 32¢R2) 


? 
ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 1-se 1984 00:29: AX-11 Bliss-32 V4.0-74 Page 25 / 
ath SPAN, CONSTANT - find start of format’ sequence 14-Sep-19 4 99:82:98 UBASRTL SRE BASF ORINT.852;1 a BS 3 
; 947 1649 1 XSBITL ‘SPAN_CONSTANT = find start of format sequence’ 
; ace 1631 ! ROUTINE SPAN_CONSTANT ( 
; 950 16 § 1 P_FORMAT_STR,  ! format string 
3 32) 1655 1 PLRETURN STR, ! return string 
3 g ¢ S28 : P™CHAR_CAT) = ! character position within format string 
H 382 1686 BEGIN 
; 955 165 
; 956 1658 'e¢ 
; 957 1659 
: 328 1989 FUNCTIONAL DESCRIPTION: 
; 960 1066 : This routine searches FORMAT_STR for the start of a valid 
; 961 166 : sores sine sgquense pestan ing at the CHAR_CNT + Ist character 
: 366 1664 ' position in FORMAT_STR. CHAR_CNT is set fo the character position 
; 1665 ‘ just before the formatting sequence. Thus CHAR_CNT returned 
; 964 1208 : unchanged indicates that no constant string was found, i.e., 
; 965 166 : CHAR_CNT currently points to the character position just before 
; 966 1668 : the start of a format sequence. The constant string is copied 
; 967 1669 : onto the return string. The routine returns 0 if no 
; 308 1929 } formatting sequence is located and 1 otherwise. 
; 970 3 : This routine will be called initially to determine the end of 
; 971 167 ! an oa constant in the format shrine. This routine 
we ii 1674 : will be called after any formatting has taken place to determine 
: 1h 1072 the end cf any trailing constant in the format string. 
; 975 1677 ! CALLING SEQUENCE: 
; 976 1678 : 
3; 977 1679 2} STATUS.wlc.v = SPAN_CONSTANT (P_FORMAT_STR.rt.dx, P_RETURN_STR.mt.dd, 
; 978 1680 2! P_CHAR_CNT.ml.r) 
; 979 1681 : 
; 980 1686 ! FORMAL PARAMETERS: 
; «981 16 : . : 
; 1684 2! P_FORMAT_STR - address of string descriptor for format string 
; 1685 ' P_RETURN_ STR - address of string descriptor for return string 
; 984 1686 ! P~CHAR_CRT - address of longword for character position within 
; 985 1687 ' format string; this paramater is passed as the 
3; 986 1688 : position 1 before the point at which the format 
; 987 1689 : sequence should start; this parameter is passed 
; 988 1690 ‘ as the position 1 before the starting character 
; 989 1691 ! position of the format sequence 
; 990 1096 , 
; 991 169 ! IMPLICIT INPUTS: 
: o36 1694 ‘ 
; 1695 : NONE 
; 994 1696 : 
; «995 1697 ! IMPLICIT OUTPUTS: 
; 996 1698 ; 
3; 997 199 : NONE 
; 64 1700 : 
; 1701 ! COMPLETION CODES: 
: 1000 1786 : 
: 1001 17 : 1 - routine completed successfully (format sequence 
; 1006 1704 : located) 
; 100 1705 : 0 - no format sequence located 


| ? 
| BASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter ibese 1984 00:29: AX-11 Bliss-32 V4.0-74 P B 
be H SPAN, CONSTANT = find start of format’ sequence 107300- 138s 99:82:98 BASRTL RC IBASFORINT.6 231 an B 


3 = 


i SIDE EFFECTS: 
NONE 

i EXAMPLES: 
i FORMAT STR CHAR_CNT (in) CHAR_CNT (out) COMPLETION CODE 


! 
! 
' 
! 
! 
! 
! 
' 
abdc$abc 0 
! 
' 
! 
| 
! 
1 
1 


S235 


abc$$abc 
abc$abc**abc 
abc ‘cccdef’cc 
abc 'cccdef* 
abc 'cccdef** 
abc’ccc 


10 
0 


en st 


jolojloloa) 
OWOENAOULS WO CON 


NNNNOOO 


o-oo 


FORMAT_STR = 
RETURN’STR = 
CHAR_CAT = ( 


FORMAT_STR) 
PETURN- STR) 
RAR_CNTS; 


(.P_ : BLOCK C, BYTE), 
(.P : BLOCK C, BYTE), 
-P_C 
LOCAL 
TMP_STR : BLOCK (8, BYTE], 
FORMAT_STR_LEN : UNSIGNED WORD, 
SCAN_MASK = BYTE, 
START_CNS_CNT, 


! temporary string descriptor 

! temporary for format length in SCANC 
! temporary for mask in SCANC 

! initial offset that could possibly 


string 


CHAR_PTR; i pointer to possible start point 


CIS SSN Ss a a oo a 
ViFwWwnN— SONOP UI SOONER WN ODe 


' 
' 
! 
' 
begin a constant in the format 
] 
' 


for formatting sequence 


'¢ 
! START_CNS_CNT should be the initial offset that could possible 


ww ww ele ala woe lolololeleloleleloleolelelelolololololo) 


WA 


begin a constant string. 


START_CNS_CNT = .CHAR_CNT + 1; 


'¢ 


Use SCANC to find the beginning of a formatting sequence. 

SCANC will be used to find the first ‘possible’ formatting character. 
Since SCANC can only stop on single character sequences, and we only 
want to stop on multiple character sequences in some cases 

(*.#@", ‘en* and '$$) 


WA EN BBE EEE EAI inononon) 


SCANC may have to be used repeatedly to skip over false alarms such 
as ‘'.R*, ‘$2° or ‘eb’, 


FUN "OO OOwO Vi FUWN oO OOn 


WHILE 1 DO T loop scans until the end 
leading or trailing constant 


Ey 
! found 


his 
of 
is 
BEGIN 

FORMAT_STR_LEN = .FORMAT_STR COSCSW_LENGTH] - .CHAR_CNT; 


eo 1 
. 1 
3 Y 
3; 3 
. 1 
7 
3; 1 
3; 1 
eo 1 
. 1 
8 1 
3 1 
oe 1 
3 
.: 3 
oO 1 
3} 
3) 
3; 1 
3 1 
e 1 
3 
oO 1 
3 1 
3 3 
3 
3; 7 
3 y 
J 1 
3 
3 Y 
3 
$y 
3 
3 
3; 1 
3 7 
3 7 
eo 1 
3 
3; 
° 1 
3 7 
3 Y 
3 7 
3; 
3 7 
3; 7 
e 1 
3 7 
3 7 
; 7 
_ 1 
3 7 
3 7 
3 1 


a eee ee ee ee ee ee ee ee ee ee ee eee eee 
NNN 
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CoOOnNOM 


BASSSFORMAT INT - Basic format interpreter 1B-sep-1984 00: 87:06 AX-11 tS v4 i Page (3 


SPAN_CONSTAN 


FSS 
wre 
— 
~“N 
ao 
w 


SzSSF 


Sts 


OOOO N NNSA 
WN “SO VOnNOUSwn—Oo0 


OOoooooCoooooo°oooo 


oo 
LEAS 


0200 
oo 


Sooooooo°oo 
BNVSARANLS 


NAMES WN SO ODNAUES WN (OO DNAUES WN (OO ONAYL FW OODONOUSE 


SOOGDOOOS C0000 000 OO O00 000009 0009 09 09 09 09 SINISE NINO OA AOAO 


ek ea a a a a dd dd 
MFWN— 


Be Se Se Be Oe Be Oe Be Se Se Ge Se Se Se Fe Fe Ge Ge Se Ge Se Se Gs Ge FHSS Oe Se Se Gs Gs Se Se Se Se Se Ge Se Se Ge Ge Se Se Ss Se Se Ge Fe Fe Ge Se Se Se Se Ge Ge Gs 


a ee eee SY 


9000900000909 09 09 09 00 09 09 00 09 09 C9 OD O08 ISIN INNS NN SNS SSS SSS SSS 
AOAOOOOUIME LSS L LLL LLANES EL FORAOOOCOCOCOUUIME LLL LL LLL ESE 


tt so = 2s I I 


Oe et ot ot ot I OOD 


NOUSWN O00 
Oe et et ot td = OOO 


DONO UESWN—OO® 


- find start of format sequence 14-Sep FORIN 
SCAN_MASK = MASK_FORMAT_CHARS; 
CHAR_PTR = SCANC” (FORMAT STR_LEN 
-FORMAT STR CDSCSA_POINTER] + .CHAR_CNT, 
CLASS TABLE . SCAN_MASK); 
IF CHAR PTR FaLu 


BASRTL. 


BEGIN 
'¢ 
! If CHAR_CNT is not 0, then we are trying to span a weree constant. 
! If no formatting sequence is found, we should treat everything from 
: START_CNS_CNT to the end of the string as a trailing constant. 
IF .CHAR_CNT NEQU 0 
THEN 
BEGIN 
C5 Oe COSCSW_LENGTH] = .START_CNS_CNT GEQ 0 
BEGIN 
TMP_STR COSCSW_LENGTH) = 0; 
TMP_STR 443M Mat = DSCSK_DTYPE_T; 
TMP_STR COSCSB_CLASS] = DSCSK_CLASS_D; 
TMP_STR LDSCSA_POINTER] = 0; 
STRSRIGHT (TMP-STR, FORMAT STR, START_CNS_CNi): 
STRSCONCAT (RETURN_STR, RETURN_STR, TMP_STR); 
STRSFREE1_DX (TMP_STR); 
bal = .FORMAT_STR CDSC$W_LENGTHI; 
END; 
RETURN 0; ! return since end of format string 
oe ! was foun 


ELSE 


BEGIN 
BIND CHARS = (.CHAR_PTR) : VECTOR C, BYTE); 
CHAR_CNT = .CHAR_PTR = .FORMAT_STR CDSCSA_POINTERI; 


'¢ 
: Check special cases ('.#", ‘$$°, ‘##", "<CD>*, *<%>°, and ‘'<0>"). 
IF .CHARS CO) EQLU CHAR_PERIOD 
THEN 
BEGIN 
ra nant LSSU .FORMAT_STR CDSC$W_LENGTH] - 1 
BEGIN 
i -CHARS (1) EQLU CHAR_POUND 
EXITLOOP 
ELSE 


SPAN_CONSTARNT = find start of format sequence 14-Sep-19 BASRTL.SRCJBASFORINT.652;1 
‘6 


! The format character was a false alarm so we should return to top of loop 
! and get the possible format character into the constant. 


| Sagygron=imt BASSSFORMAT jut - Basic format interpreter 1b-se0-1984 00: 27:06 eth Bliss-32 V4.0-74 Page (38 


ss 


MEW —ODONAUSWN OOM 


_ 
Co CD CD 


WAAAWWInororononenonononefy 


DONA ME UAR " O OONOUE wn" 


CHAR_CNT = .CHAR_CNT + 1; 
_ ! this gets the Case ‘‘abc.+"’ 


ELSE 


i The format character was a false alarm so we should return to top of loop 
! and get the possible format character into the constant. 


. CHAR_CNT = .CHAR_CNT + 1; 
—_ ! this gets the case ‘‘abc."’ 


Fist IF .CHARS CO) EQLU CHAR_DOLLAR 
BEGIN 
i Y wees LSSU .FORMAT_STR CDSC$W_LENGTH] = 1 


BEGIN 

A -CHARS C1] EQLU CHAR_DOLLAR 
EXITLOOP 

ELSE 


'¢ 
! The format character was a false alarm so we should return to top of loop 
! and get the possible format character into the constant. 


CHAR_CNT = .CHAR_CNT + 1; 
oa ! this gets the Case ‘‘abc$+"' 


DONG VEWN “OOOBNOUS WhO 0O@ 


ELSE 


'¢ 
! The format character was a false alarm so we should return to top of loop 
! and get the possible format character into the constant. 


PUN $0 ODNAUE WN “OOOO Ew Oo 


wr 
etatatatot 


eee ee eee _ 


FN ey ee te ry tte a at tt ot Ae AT 


3 1 
3 1 
3 1 
3 3 
3; 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
. > 
3 1 
: 1 
3 1 
3 1 
3 
3 1 
3: 1 
3 1 
| 
3 1 
. 
. % 
3 1 
3 1 
3 1 
3: 1 
3 1 
3 1 
3 1 
3 1 
3 1 
®. 
: 1 
3 1 
-. 
3: 1 
3 1 
: 1 
21 
3 1 
3 1 


me a a a a a tk a ed = = 


PVP ES BE SVS STSTSISTSISI OO CO OF OO OS OO OO OS OS OO OS TI BS BS TTI IUTIUSIIION OF OP OP OF OP OP OP OF 


pwhatatwhetatet 4 + + + 


AuUikluUn—Oo0Oonou 


6 

6 CHAR_CNT = .CHAR_CNT ¢ 1; 

$ ! this gets the case ‘‘abc$"’ 
END 

7 ELSE IF .CHARS (CO) EQLU CHAR_STAR 

7 THEN 

7 

7 

7 


Sun 


BEGIN 
a i LSSU .FORMAT_STR CDSC$W_LENGTH] - 1 


~m 


Be Oe Se Oe Se Se Se Se Se Se Se Se FH Se Se Ge Se FH Se Se Oe Oe Ge Se BH Se Se Oe Se Se Se Se Se Se Se SH Se Se Se Se Se Sear se Se Se Se eeae 
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EONS TANT - find start of format’ sequence 107350- 1382 99:82:98 BASRTL SRE SBASFORINT. B92: 1 


vo 


rae 


eo v> 
<2 


BEGIN 

IF CHARS [1] EOLU CHAR, STAR 
EXITLOOP 

ELSE 


'¢ 


! The format character was a false alarm so we should return to top of loop 
: and get the possible format character into the constant. 


CHAR_CNT = .CHAR_CNT + 
_ ! this gets the Case 


ELSE 


'¢ 
! The format character was a false alarm so we should return to top of loop 
and get the possible format character into the constant. 


CHAR_CNT = .CHAR_CNT ¢ 1; 
! this gets the case ‘‘abc*'’ 


SSSLESREN SESSLER ANVES SANSA 


sO O00 00 09 09 09 00 09 09 09 CD 09 09 CD CD CD. CD. CD CD. CD CO. CDG. CD 


END 
IF .CHARS CO] EQLU CHAR_UNDERSCORE 


C9 09 09 CD CO 
RAWLS SRLSARANLSLSVSARAWHSS 


SN NNN NAD NIAAA AA AAD INN D DP TBS BTS PAA AAA AAA A AAA AS 


DIDI at tt st kk tk tk a a 8 to tt 


ooo 


ooo 
wn 
So 


LSE 
HEN 


S 


COOONOUS WN —"OOOnNOu 


BEGIN 
IF _CHARLCNT LSSU .FORMAT_STR CDSC$W_LENGTH) -1 
BEGIN 


rye 
SSLESE 


SK-L + MASK_C + 
MASK-R + MASK-E + 
MASK_SPECIAL)? 


L 
UNDER_MASK; 
UNDER_MASK = yay FORMAT _CHARS + 


wooonownowowond 
a tt OOOO 


'¢ 

! Underscore must be the first character in the 
' constant. Any other 

' constant characters should be appended to the 
' return string before 

we try to process underscore. 


if .CHAR_PTR - ( FORMAT STR CDSCSA_POINTER) + 
; -START_CNS_CNT) GEQ 


BEGIN 
'¢ 


Underscore is in the middle 
of the constant. Include 
up to the _ in the return 
string now, and set the 
start pte to the for next 
time thru SPAN_CONSTANT. 


ot 4 Ss 


NOUEWN “CO OONOUE WN Oo 
a eee ed ee ee a ae ee ae ee ee ea a ec ee ee ee ee a ee a a a ed ed ei Sed 


DWOOOOOOOOOOOONOOOVOOONO 


WUARPOPONOPONONUNOIDD 4 2 oe 


PEPSPOPOPINIPNININIPONYNIPINPINONINIPIPIPY 


-—OO0@ 
WN 9 OONOUS WN — 


Ww 


Be Se Se Be Oe Se Se Se Se Se Se Se Ge Se Se Ge Se Ge Ge Ge Se Ge Ge Se Fe Ge Se Se Se Ge Se Ss Se Fe Se Ge Ge SH Ss Se Se Se Se Se SH Se Se Se G. GHGs Se Ge Se ee tee 
me ee ee me ee ce ee a a ek ee. ed a ed od = ed 


wm 
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ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 18-5 -1984 00:29: AX-11 Bliss- 4.0-74 
batt SPAN CONST ART = find start of format’ sequence 1 =3007 1382 99:82:98 BASRTL SREIBASFORINT. $251 aes B 


BEGIN 
'¢ 


i Nothing follows the underscore and its 
format character. End of constant. 


if .CHAR_CNT EQL 0 


3 1 ¢ 19 7 

3 3 1935 4 LOCAL 

3 3 1G CNS ,Eweta: 

; 1235 19 g CNS_LENGTH = .CHAR_CNT = ,START_CNS_CNT + 1; 
: 1 19 : TMP"STR COSCS$W_LENGTH] = 0; 

:1 1939 7 TMP=STR DS¢$B-dTYPE] = DSCSK_DTYPE_T; 

; 1238 1940 7 TMP_STR COSCSB_CLASS] = DSCSK_CLASS_D; 

3; 1239 1941 7 TMP_STR CDSCSA_ POINTER] = 0; 

: 12460 13e8 7 STRSLEN_EXTR (TMP STR, FORMAT _STR, START CNS_CNT, CNS_LENGTH); 
> 1241 1943 7? STRSCONCAT (RETURN STR, RETURN_STR, TMP_STR): 
3 1 eg 1944 7 STRSFREE1_OX (TMP_STR); 

3 126 1945 7 START_CNS_CNT = .CHAR_CNT + 1; ! constant starts past underscore 
; 4b 1946 7 evsee ithecase ‘abc_#aa' 

3 ; re + a | ? BEGIN ' start of constant 

3 1 rt 1950 7 ! Search for the formatting character which 

3 126 1951 7 ' should follow an underscore. 

: 1250 1328 7 ' Underscore has no effect if no format 

; 1251 1953 7 ' character follows. 

3 1 26 1954 7 ! Note we don’t EXITLOOP after processing the 
: 125 1955 7 ' underscore and the char that 

3 1254 1328 7 ' follows it, as there may be more constant 

: ; 2 1320 4 } expression after that. 

3 1257 1959 7 FORMAT STR_LEN = 1: 

3 1258 1960 7 CHAR_PTR ="SCANC (FORMAT STR_LEN, 

: 1259 1961 7 -FORMAT STR COSCSA_POINTER] + .CHAR_CNT + 1, 
; 1260 196¢ 7 CLASS TABLE, UNDER_MASK); 

: ; 63 1eer 4 aa thie EQ 0 

> 126 1965 7 1+ 

: 1264 1966 7 ! No format character follows the underscore, 
3; 1265 1967 7 ' so the underscore should become 

3 : $6 1308 4 part of the constant. 

: \<08 1970 7 CHAR_CNT = .CHAR_CNT + 1 

3 ' 3 1373 4 ~~ ! this gets the case ‘_abc' 

: 1271 1973 7 '¢ 

3: 1 es 1974 7 ' A valid text format character follows the 

3; 127 i975 7 ' underscore. This character should 

3 1274 1378 7 ! be included in the constant. There may be 
3 1275 1977 7 ! more constant after this single 

: 1 6 1978 7 ! character - SCANC again, and if there is 

3: 127 1979 7 ' another format character we know 

3 : A HS 44 4 we are at the end of the constant. 

:1 198 BEGIN 

2 ' Bp oe EQLU .FORMAT_STR CDSC$W_LENGTH] =- 2 
3 1 1985 

3: 1 1 9 

3: 1 1 9 

2 1 1 y 

: 1 1 G 

3: 1 1 g 


BVSurun—o 
oooonovond 


SSIS 


Maa Me Be Oe Oe Be Be Os Be Be Be Be Be Be Be Ge Ge Be Be Ge Ge Be Se Fe Ge Se Geese Ge Ge Fe Se Ge Ge Se Se Ge Se Seas Ge Ge Be See Se Se Se Ge Se Se we Oe Oe BH we 
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ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 6-Se -1 9: AX-11 Bliss-32 V4.0 Pp 1 E 
at SP PAN. CONSTANT - find start of format’ sequence cate 99: §2 98 BASRTL’S CIBASFORINT. if 2;1 ne 3) < 
% 1393 a f h f 
rs 1338 Cuan jay N A Ornet chars found j 
% 1994 - CHARS WNEOU” CHAR’ 2bOLLAR AND 
9 1995 NEQU CHAR_S STAR AND 
Se 1338 chars NEQU CHAR_LF_ANGLE 
96 1998 EN raRT _CNS_CNT = .START_CNS_CNT + 1; 
9 1 EXITLOOP 
rs 44 nse D ! case '_#" (end of string) 
0 BEGIN 
of 808 
4 004 i “Choresteré which are part of a ‘<x>’ 
005 i sequence may not normally be considered 


in format characters. 


Sess 


SES 
Sees 
NOUS WO OO MEW 0 OBNOUNE UN “CO OOSNOUE WN 0 0@ 


o 


“OOOO VEWN — OOO NOUS wn —0 0 


(FO RL 
" RMAT_STR CDSCSA POINTER) ¢ “CHAR_CNT + 2, 
CLASS TXBLE tw R_MA 
CHAR_ PIR'E 


BEGIN 


"eere constant follows the underscore and 
i its format character. If multi-char 
i format, then the char after the 
! uatorscore is not a ‘format’ char 
after ° 


if - CHARS NEQU CHAR -ROLLAR AND 
$f NEQU CHAR“STAR AND 
“wns NEQU CHAR at ANGLE 


HEN REG 

CHARS CNT = .CHAR_CNT ¢ 2; 

START_ CNS_ CNT = START _CNS_CNT + 1; 
END ‘case ‘_#abc' 


E 
CHAR_ CNT = .CHAR_CNT + 1; 
= ' case '~<abc' 


ELSE 
BEGIN 


‘tare format characters follow the underscore 
i and its format characte 

' Check for a rel mot oy Snail sequence, 

' such as ‘$$°. Include all chars in 

. the constant if necessary. 


POPIPIPONINPONIDS — 9 SS SS 
SOOCooooooooooooooooooo 


WALA MOPOROTORONOPOPOND 4 2 SS SS SS 


A.A AAA. AANA 


OOCooeoo 


FORMAT_CHAR = (.CHAR_PTR = 1) : VECTOR C,BYTEI; 
SELECTONEU™ . FORMAT _CHAR [0] oF 


EHAR DOLLAR) : 


a ed 
SOOOCCCOCSCOCOCOCOCCOCOSOOO | — “CQOOOCCOCCOCOCOCOCOCCOOODOODDOOODOVDBODOOOOOOwW' 0” 


ee a et a nt ns 4 te ae et ad at 4 a os ss ss ws ot 


YY errr rer 
ARGN=SSOIOM 


FRRLRELE 


BASSSFOR_INT 


me ee ee a ek ak a ed ed a d= = = = a = = 2“ = 8 ww = 2 Ls 2s SS 


3 hay ons {nt - Basic format interpreter 
AN_CONSTANT = find start of format sequence 


SEESS BeescuueuynueEe & 
Ze ‘ 


oO 
WSSSSSSSE 


CSooooocecoo 
a 


Soa 


081 


Ses 


kk i tk a at at a a a ts ss a st a a st ts 4 


PON IROL I IR IORI = = O00 SN 3 = = = BOOOOOO] = = OOO COO— = 


i 
RATS 


7 
1E-Sep-1964 00:29:96 yatctt BLieg=52 v4 0-742, 


{eh «FORMAT CHAR [1] EQLU CHAR_DOLLAR 


re 


Sin 
CHAR_CNT = .CHAR_C 
START_ CNS CNT = 
ND '“case 


CHAR, wan = oe CNT + 1; 
ase 


"$a" 
CCHAR_STAR] : 
IF FORMAT. CHAR (1) EQLU CHAR_STAR 


CNT + 3; 
rgyant ch CNS_CNT + 1; 


oy 
CHAR_CNT = .CHAR_CNT + 3; 
START_CNS_CNT = [START _CNS_ CNT + 1; 
END !"case vee! 
ELS 
CHAR_CNT = CWA CHT ¢ 1; 
! case *_*#* 


CCHAR_CARAT]) : 
if he CNT LEQU .FORMAT STR COSCSW_LENGTH] = 5 


BEGIN 
IF .FORMAT_CHAR [1] EQLU CHAR_CARAT AND 
«FORMAT_CHAR ¢ EQLU CHAR_CARAT AND 
jFORMAT CHAR EQLU CHAR_CARAT 
R_CNT = .CHAR 


CHA 
START CNS_ CNT 
END; 7 case 


END 
ELS 
CHAR_CNT = CHAR. cNy 433 
CCHAR_LF_ANGLE) : 
LF; CHAR_CNT LEQU .FORMAT_STR CDSCS$W_LENGTH] = 4 
BEGIN 
TMP_CHA 
TMP “PARA. BL : BLOCK CK_INTER_STO_LEN, BYTE); 
on't alter real param. “blk 
TMP CHAR CNT = .CHAR_CN 
IF TSPAN“BRACKET (CHAR PERCENT 
FORMAT STR, TMP_PARAM_BLK, 
STR, TMP_PARAM_BLK, 
CNT)) 
_<t>', 


- 
CHAR CNT = .CHAR_CNT ¢ 4; 
START. CNS_CNT = [START _CNS_ CNT + 1; 


ELSE 


———_—_—- ——_ —— 


BASSEFOR_INT 


BASSSFORMAT al ~ Basic format interpreter 
SPAN_CONSTART = find start of format sequence 


105 1 


—} 


Peers 


BRA WA AALANIIIUNINIIIUNININ 3S 3 
=) w WI OOo NOMEN OOO NOME WROD Roe 


>) 4 a ts 


MEUM $0 OONAUE WN “OVO OWVOuSwn oO 


Os mt ts 2 a ss a a a 2 a ss 5s ts ss ss 


DVN EE DNNAMNAAAAAOUAAAA VDIOOOO090  — | “QOOCKC000O0O 2 SS PINININWNII AIO 


ELS 


' 
' An 
' 
' 


ee ee ee ee a ed ad ad ed wd od wd od 8d 
ee ee me ee ed ed od od od dd od 


7 
TB-Sep-1984 90:29:06  yayctt BLisg=82 v4-0-742, 


A 
o: CHAR_ CNT = .CHAR_CNT + 3; 


BEGIN 
CHAR CNT = .CHAR_CNT 
START_CNS_CNT = 


IF (SPAN_BRACKET (CHAR_C 
FORMAT STR TAP AcARAM. BLK, 


TMP CHR 
(SPAN nBRACKET. (CHAR =bOvER a? 
FORMAT R cat) iw ARAM BLK, 
TMP_CHA 

“! cases " cep, *_<cd>' 


N 

arse 

CHAR_CNT = .CHAR_CNT + 5; 
START_CNS_CNT = [START CNS CNT + 1; 


ELS 
CHAR_CNT = .CHAR_CNT + 3; 
! case '_<%abc' 


! case ‘_<%' 
! end of bracket formats 


COTHERWISE : 


Sedereanee followed 7 8 
! singly valid format char. 
format chars which 

' follow the Ist format char 
' are immaterial. 


+ 2; 
START chs, CNT + 1; 
' case ' 


END; ! more format chars after 
! underscore & its format char 


treat as constant. 


ses. 
8 e 
40 
40 re END _ 
% , eno & 
rk 45 '¢ 
44 “6 ' underscore followed by nothing. 
445 4 ie 
44 $8 ELSE 
44 4 BEGIN 
t9 39 i* 
450 5 ie 
$3) 35 ey cooP; = .CHAR_CNT + 1; 
438 4 END _— 
455 
$38 H ELSE IF .CHARS (0) EQLU CHAR_LF_ANGLE 
45 THEN 
458 60 BEGIN 
459 61 IF .CHAR_CNT LSSU .FORMAT_STR CDSCS$W_LENGTH] - 2 


K 7 9 
ORMAT_INT = Basic format interpreter 16-Sep-1 229: AX-11 Bliss-32 V age 
BAST g OR INT BPAN CONSTART = find start of format sequence 13-808= 1982 90:82:98 BASRTL.SRC SSpagronint 642: 31 a 
; 1 1 5 THEN 
: N 
; i 168 Sete CTONEU .CHARS (1) OF 
lee He PEHAR_ PERCENT): 
; 189 IF ~CHARS (2) EQLU CHAR_RT_ANGLE 
: \eee 168 THEN ' found a format character 
4 1467 199 g ELSE t false alarm - ine ude in constant 
: }e69 171 6 CHAR CNT = .CHAR CN " 
: 1296 1% é this gets the coon” <%abc’ 
; 1053 132 g COM TE C2] EQLU CHAR_RT_ANGLE 
; 1238 175 6 THEN found a format character 
; 1298 i” 8 ' false pore - ee in constant 
i ifs 2 § ELS vanced Shahan 
; 1299 155 6 a this gets the case ‘<Oabc' 
: HA 
+ ahs iss & - 1F CHARS [2] EQLU CHAR_D 
erty 188 § BEGIN “e 
3 148 184 7 IF .CHAR_CNT LSSU .FORMAT_STR CDSCS$W_LENGTH) 
: 1283 185 7 THEN cin 
: 1eB8 188 —_- C3] EQLU CHAR_RT_ANGLE 
3 1486 188 csIN 
eri t4 15 ° T GEQU .FORMAT_STR CDSC$W_LENGTH] = 4 
; tt] 194 3 tf CHARS” Neo SE ONMAT STR CDSCSA_ POINTER] 
; 1499 198 3 EXITLOOP ! found a format char (at end of string) 
+ 149 19%4 9 SE ea 
; 1438 19% 9 fants avon the taed where <CD> is in the beginning of 
t 1098 199 3 i the format string and should be treated as a constant. 
: eee 19 3 ! we treat it as a constant in order to be consistent w/ BP2 
: 1497 199 9 sett 
: 1038 St CHAR_CNT = .CHAR_CNT + 3 
: 1300 03 ! this gets the case ‘'<CDabc' 
; 1301 0 N 
: 120 8 -CHAR_CNT + 3 
: 13 $ 3 j go the Bae *<Cbabc" at end of string 
1 % ; 
: NT = .CHAR_CNT + 
: 130% a 3 _" z his gets Ehe case ‘<Cabc' 
: 1509 11 6 COTHERWISE): 
i 13 12 6 CHAR_CNT = .CHAR_CNT + 1; 
; 1314 18 6 ! this géts the case ‘<abc’ 
: TES; 
: 1818 13 é END 
; 131 i$ ELSE an CNT = .CHAR_CNT + 1; 
; te 18 5° ' this gets the case ‘<a" 


mo | 


7 
ASSSFOR_INT BASSSFORMAT INT = Basic format interpreter 1$-se 1 729: AX-11 Bliss-32 V4.0-74 P 
A313 SPAN, CONSTANT - find start of format’ sequence 12-88 -}$8e 99:82:98 BASRTL SRESBASFORINT 092: 1 — BB 
1 1 END 
1 ELSE 
1 EXITLOOP 

END 

END; ! end of constant finding loop 


'¢ 
! If we get here we have moved CHAR_CNT to the character before 
: the start of a format string. 


i Concatentate constant string from FORMAT_STR onto RETURN_STR. 
i Note that code similar to this is executed at the beginning of 


! this module if a trailing constant is detected that extends to the 
! end of the format string. 


MEW 0 OONOAUE WN oO 
Mw DONOUE WT 


If .CHAR_CNT = .START_CNS_CNT GEQ 0 
THEN 


ak kik a ak i a a tk at at ot 2 a“ 2 = 2 tt a Ss 


, oy at ot ot toe 
UPwro—OOe 
PIPPIN HHWINNI NINE AIEIPIPOPPUPINPIPIPIPINININININY & FP 
F = 
f 
nw 
~ 
= 
o 
” 
$ 
4 
o 
~~ 
> 
wn 


5 BEGIN 

5 LOCAL _CNS_LENGTH; 

238 CNS_LENGTA = .CHAR_CNT = ,START_CNS_CNT + 1; 

539 MP-STR CDSCSW_LENGTH) = 0; 

540 TMP-STR CDSC$B pr vee] = DSCSK_DTYPE_T; 

541 » “CLASS] = DSCSK-CLASS-D; 

348 TMP-STR CDSCSA-POINTER) = 0; 

54 STRSLEN_EXTR (TMP STR, FORMAT STR, START_CNS_CNT, CNS_LENGTH); 
544 46 STRSCONTAT (RETURN STR, RETURN_STR, TMP_STR): 

545 4 STRSFREE1_DX (TMP_STR) 

546 4 END; 

547 4 

248 250 2 RETURN 1 

49 931 

550 52 END; ! End of routine SPAN_CONSTANT 


OFFC 00000 SPAN_CONSTANT: 
WORD 


: Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 > 1650 
5E Bt AE 4 00002 MOVAB -68(SP). SP 3 
5 4 AC 00 00006 MOVL P_FORMAT_STR, R > 1726 | 
38 08 AC D 00 A VL PTRETURN™STR, R11 : 1727 
6 a MOVL. PT7CHAR_CAT, R6 : 17 8 
16 AE 66 01 C1 00012 18: ADDLS wT. (RB), START_CNS_CNT + 1745 | 
04 AE 6 6 A 001 2$: SuBW3 = (R6),,_ (RO), _FORMAT_STR_LEN ; 1768 
1 90 0001C MOVE #1, SCAN_MASK : 1763. 
04 AQ DO OOOTF MOVL 4 (R9), RB : 1765. 
N LEN, . CLASS_TABLE, - ; 
6E FCAC CF 00 B64 4 AE 2A 00023 SCANC FORMAT STR EN, @0(R6)CR8), CLASS_TABLE 1764 
2 12 0002 BNEQ 3 - ; 
D4 0002F CLRL RI ; 
54 1 b 031 3$ MOVL 1, CHAR_PTR : 
44 0 BNEG 5$ : 1767. 
6 D5 000 TSTL = (R6) : 1777 
D 13 000 BEQL 4$ : 


egg BASSSFORMAT {NT - Basic format interpreter 16-seo-1984 90: 87:06 eth Bliss-32 ior atest Page (a 


SPAN_CONSTART = find start of format sequence 14-Sep-1 BASRTL.SRCJBASFORINT. 
14 AE 69 10 i 3 a8 cne v i #16, (RO), START_CNS_CNT : 1781 
3c AE 0200000 F D rh MOVL  #34471936, TMP_STR : 17 
40 AE D4 O004A CLRL  —s- TMP_STR*4 > 1787 
14 AE 9F 0004 PUSHAB START_CNS_CNT : 1788 
59 DD 0 PUSHL RO : 
44 AE OOF PUSHAB TMP_STR ; 
000000006 00 03 FB 000 CALLS #3, STRSRIGHT : 
3c AEC 0005C PUSHAS TMP_STR : 1789 
38 DD F PUSHL R11 : 
DD 6} SHL R11 : | 
000000006 00 03 FB 6 CALLS #3, STRSCONCAT : 
3c AE ODF A PUSHAB STR : 1790 
000000006 00 01 FB 00 $0 CALLS #1, STRSFREE1_DXx : 
66 69 3° 0074 Mov2we (R95), (R6) : 1791, 
0290 31 00077 4s: BRW 47$ > 1795. 
55 23 00 OO7A 5$: MOVL CHAR_PTR, RS 3; 1801) 
66 se § 0070 SUBL3 R8, CHAR_PTR, (R6) : 1308 | 
E 65 91 00081 CMPB = (R5), #48 ; 1808 
16 12 00084 NEQ 9$ : 
50 3¢ 0086 MOVZWL (R9), RO : 1811 
0 D7 00089 DECL RO ; 
50 66 01 00088 CMPL = (R6), - RO : 
06 IE O008E BGEQU 7$ : 
23 01 AS 91 000 CMPB 3 s«1(RS), #35 > 1814) 
93 13 00094 6$: BEQL 8$ : 
03¢ 1 00096 7$: BRW 43$ : 
0225 31 00099 8$: BRW 45$ : 
24 65 91 0009C 9$: CMPB ss (RS), #36 > 1840, 
10 12 0009F NEQ 108 ; 
50 69 3C OO0A1 MOVZWL (R9), RO > 1843) 
50 D7 O00A4 ECL RO : 
50 66 D1 000A6 CMPL (R6), RO ; 
EB 1E Q00A9 BGEQU 7$ ; 
24 01 AS 91 000AB CMPBs«a1(R5), #36 > 1846 
E3 11 OOOAF BRB 6$ ; 
2A 65 91 00081 108:  CMPB (RS), #42 > 1872 | 
10 12 00084 NEQ 118 ; 
50 69 3¢ 0086 MOVZWL (R9), RO > 1875) 
50 D7 00089 ECL ~—-RO ; 
50 66 D1 00088 CMPL (R6), RO ; 
bg te OBE BGEQU 7$ ; 
2A 01 A 91 99¢0 CHPB 1R5), #42 : 1878 
SF SF 91 0066 11$:  CMPB (RS), #95 > 1904. 
13 OOCA BEQL § «=_:128 ; 
01 ; 00CC BRW 38$ ; 
50 69 ¢ OOCF 12%:  MOVZWL (RO), RO ; 1907 | 
0 07 00 be DECL RO ; 
50 $ pI L  — (R6),_ RO ; 
F 00007 BLSSU 138 ; 
0184 31 09 BRw 3 3 
A F 00 DC 13$:  MOVL. #63, UNDER_MASK : 191 
57 : 14 AE C DF ADDL3 START_CNS_CNT, R8, R7 : 192 
5 pI £4 PL HAR_PTR,~R7 : 
42 ? 00E7 BLSS 4$ ; 
50 66 14 AE C3 000E9 SUBL3  START_CNS_CNT, (R6), RO ; 


————____—— 
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ASSSFOR_INT BASSSFORMAT INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 
aig SPAN, CONSTART - find start of format’ sequence 137888-1 382 99:82:98 EBASRTL-SRE BASFORINT 69251 
8 A 1 ao 9 E MOVAB 1(RO), CNS_LENGTH 
8 aE 0206000 8F 56 FS MOVL pecrigies MP_STR 
BBE ig e-thet 
1 Ar F 001 j SH START. CNS, CNT 
ws ie oe riko. fhe ste 
000000006 00 04 FB 001 CALLS #4, STRSLEN_EXTR 
3¢ AE OOF 0011 PUSHAB TMP_STR 
ep ggg Pua a 
000000006 00 8 FB 0011 CALLS #3, STRSCONCAT 
3c AE. sO9F«OOTIE PUSHAB TMP_STR 
000000006 00 rect re 1 } CALLS #1, “STRSFREE1_DX 
57 =e 66 C1 OOS ALS RED ORB, RP ee 
SA FB9D CF 01 A? 04 AE 5h 00133 SCANC FORMAT |SfR_LEN, 1(R7), CLASS_TABLE, = 
2 12 9013¢ BNEQ 15$ ~ 
1 D4 001 CLRL RT 
54 31 bg 0014 15$:  MOVL 1, CHAR_PTR 
: 13 0014 BEQL §==_-23$ 
50 69 3 0014 MOV2WL (R9), RO 
50 02 C2 00148 SUBL2 #2, RO 
50 66 D1 00148 CMPL = (R6),_-RO 
2 if OO14E BNEG  18$ 
66 D5 0015 TSTL (RO) 
0 V2 00152 BNEQ gs 
018 31 00154 BRW 47$ 
66 £0 00157 16$:  ADDL2 #2, (R6) 
24 01 AS 91 O015A CMPBs«1(R5), #36 
OF 13 0156 BEQL «=s«17$ 
2A 01 AS 91 0016 CMPB =s«1(RS), #42 
09 13 00164 BEQL «=s«17$ 
3C 01 AS 91 00166 CMPB =s«1(R5), #60 
03 13 OO16A BEQL «=s«17$ 
14 AE 6 016C INCL § START_CNS_CNT 
SA 40” AA 9E QOISE 188: ROVAB GCERION, UNDER_MASK 
SA FBSA CF 02 A7 04 AE 2A O17 "  SCANC FORMAT STR_LEN; 2(R7), CLASS_TABLE, = 
; 12 0017F enco | 198 
D4 00181 CLRL RT 
54 31 if 3 198: HOV Ri CHAR_PTR 
24 01 A 91 001 CMPB 7¢R5), #36 
29 13 0018C BEQL 38 
2A 01 3 ? cHPB (RS), #42 
3¢ 01 A5 91 00194 CMPB FR), #60 
cosh HBR BL a 
52 FFAG st 19D 208:  MOVAB =1(CHAR_PTR), R2 
BS gue fips 8 
24 01 OA 4 O1A6 CMPB ithe), #36 


Pee Se Se Se Se Se Sete Ge Se Se Se Se Se Se Ge Se Se Se Ge Se Ge Se Be Ge Ge Se Se Se Se Se Se Be Be Se Be Se Ge Se Se Se Se Se Se Se Be Se Se Se Se Se Se Fe Be Se Ge 


re 


| BASSSFOR, INT 


5E 


5E 
SE 
5E 


OC (AE 


0000Vv 


0000v 


0000Vv 


0000Vv 


2A 
2A 


7E 
CF 
14 


01 


01 
02 
03 


=-—oO 
aon 


09 
2 


01 


00 


FPOPKPMOCOANMAAOOCOPY 


MOMFEWOMOVUNY 


BASSSFORMAT_INT = Basic format interpreter 
SPAN_CONSTANT = find start of format sequence 


NOD OOM 9FOW OS OS 0 OW FN OS 9 OO" 
“woo Th PIM 1A 0 0 PS @ DD ION) S| OS WSs nn 


00 OmMmn"oOC Oo 
~an-OOowoIo™ 


@e@eocn 
Se 
—— 
ono 


16-S 4 00:29: AX-11 Bliss-32 v4.0 
14-Sep- 82 99:82:98 BASRTL. SRC IBASFORI 
1AA BRB 2 
1AC 218 CMPB Ss (R2), #42 
1AF BNEQ #5 
181 CMPB (R2), #42 
183 8: BEQL =. 24$ 
1B7 23$: BRW 43 
1BA 248:  ADDL2 #3, (RO) 
1BD BRB 31$ 
O1BF 25$:  CMPB (Re), #94 
O1C BNEQ 28 
01C MOVZWL (R9), RO 
01C SUBL2 #5, RO 
01CB CMPL (RO), RO 
01C BLEGU 26$ 
01D BRW 42$ 
0103 26$ CMPB = s«1(R2), #94 
00108 BNEQ 7$ 
001DA CMPB (R2), #94 
O010F BNEQ 6$ 
O1E1 CMPB (R2), #94 
OO1E6 278 BNEQ 368 
001E8 BRB 3$ 
OO1EA 288 CMPB ss (R2), #60 
001ED BNEQ  34$ 
OO1EF MOVZWL (R9), RO 
001F2 SUBL2 #4, RO 
001F5 CMPL  (R6), RO 
001F8 BLEQU 29$ 
OO1FA BRW 41$ 
OO1FD 29$ ADDL3. #1, (R6), TMP_CHAR_CNT 
00202 PUSHAB TMP_CHAR CNT 
00205 PUSHAB TMP~PARAM_BLK 
00208 PUSHL RY 
0020A PUSHL #37 
0020¢ CALLS #4, SPAN_BRACKET 
00211 LBS —s_ RO 
00214 PUSHAB TMP_CHAR_CNT 
poett SHAB TMP_PARAM_BLK 
O021A PUSHL R9 
0021C PUSHL #48 
00 3 CALLS #4, SPAN_BRACKET 
00 : BLBC = RO. «2328 
00226 30$:  ADDL2 #4, (R6) 
00 9 31$: BRB 35§ 

B 32$: | PUSHAB TMP_CHAR_CNT 
0022E PUSHAB TMP~PARAM_BLK 
00231 PUSHL R 

0233 MOVZBL #67, -(SP) 

0237 CALLS #4, SPAN_BRACKET 
023¢ LBS sé $ 

023F PUSHAB TMP_CHAR_CNT 

024 PUSHAB TMP~PARAM_BLK 
024 PUSHL R 

024 MOVZBL #99, -(SP) 

024 CALLS #4, SPAN_BRACKET 
0 2 BLBC » 418 

0253 33$ ADDL2 #5, (RO) 


2096 


2108 


2113 


—_——{ 
i 


rom 


fa eae elilcinnensigeapicaniine mies aes cites 


“gassgron_int BASSSFORMAT_INT = Basic format interpreter 


1 
SPAN_CONSTART = find start of format sequence 1 
11 

66 83 0 $0988 

14 AE 99 B 

SE 1 

96 06 6 

4 1 6 

xc g 91 64 
3 }é 0267 
50 § § 0269 

23 2 C2 0026C 

0 66 D1 00 gf 

48 1€ 00272 

50 01 AS 9A 00274 
25 50 91 4 78 
O 12 00278 
3E 02 aS 91 00270 

5 13 00281 
11 00283 

30 29 91 00285 
F3 13 00288 
43 BF 50 91 0028A 
ec 12 3 8E 
44 BF 02 AS 91 94 
20 12 00295 
50 69 3C 00297 
50 03 C2 0029A 
50 66 D1 00290 
10 1€ O02A0 

3E 03 AS 91 O02A2 
OA 12 002A6 
58 55 D1 002A8 

14 is 002AB 

66 04 CO OO2AD 

OC 11 00280 

66 03 CO 00282 

07 11 00285 

66 Bs CO 00287 

02 11 O02BA 

66 6 002BC 

FD56 31 O02BE 

14 AE $6 D1 002C1 
F 19 002C5 
56 66 14 AE C3 002C7 
10 AE 4 A6 YE 8 cc 
3C §=AE 02060000 8F D0 00201 
40 AE D4 00209 

10 AE 9F 0020C 

18 AE 9F O02DF 
59 DD 007E2 
48 AE 9F 00ZE4 
000000006 00 04 FB 002E7 
3C = AE: sO9F«OOCEE 

5B DD 002F1 
33 DD 00 2 

000000006 00 FB OO2F 
3C = AEsO*F9F:«“OORFC 

000000006 00 01 FB O02FF 


39$: CMPB 


40$: CMPB 


8 
Sep=198e 11:54:58 EBASRTL SRE SBASFORINT-B82; 1 


(R6) 
RT_CNS_CNT 


on 


at eat ong OD Or 


oz 
PNM AM DWI DIN HWW OOM OOK NDVI DND MND & —-4 


= 
Oo Ge 


(R6), START_CNS_CNT 
START_CNS_CNT, (R6), R6 
1(R6) GNS_LENGTH 
#34471936, TMP_STR 
TMP_STR#4 

CNS-LENGTH 
START_CNS_CNT 

Ro 

TMP_STR 

#4, ~STRSLEN_EXTR 
TMP_STR 

R11 

Rit 

#3, STRSCONCAT 
#1, “STRSFREE1_DX 


WY! WOdOoO 
DON—OWMOour 


4 


ASSSFOR_INT BASSSFORMAT_INT = Basic f t inte t v8 p-1984 9: AX-11 Bliss-32 ee Page 40 
BAStS -! SPAN_ CONS TARY = find start of tornet’ sequence tee 9: 7 £08 BASRTL.SRCJBASFOR OF B82; 31 ° (3 
50 01 v0 0308 46$: MOVE #1, RO : 2250 
50 D4 0030A 47$: CLRL RO : 2252 

04 0030¢ RET : 


; Routine Size: 781 bytes, Routine Base: _BASSCODE + 0320 


egepron 


NN NNN NNSA OAAAOAOAAOS 


SEAFANTLS SS 


28S& 


ono 
wr 


rw Lala al eal eal al eal tal al ab Ab Ab Ab Ab Ab Ab Ab Ab Ab al al ab al al al al ah al al al al al eal 


SELESE 


He Se Se Se Se Oe Ss Se Se Se Se Se Se Fe Se Se Se Ge FH Se Se Ss Oe Se Se FH Ss Se Se Se Se Se Se Se Ge Ge SH Se Se Se Oe Ge Ge ee Se Se Se Ge Ss ee 


aaa kk tk tk et at as as et = = = 9 = SS SF SS SY Ss Ss Ss SY Ss SS Ss SS SS SS Ss SS YS Ss SS SS SS SS SS SYS SS Os Ss YS 


o 
o 
o@ 


| 


8 
SFORMAT_INT = Basic format interpreter 1$-sep-19 4 00: 07:06 AX-11 Oi ieges 
SINGLE QUOTE = process single quote format 14-Sep-1984 11:54: BASRTL.SRCJBA 


ze 


2 V4.0-74 Pa 41 
ge URINT 69251 ee (6) 


v,r 
>u 


1 ZSBTTL "SPAN_SINGLE_QUOTE = process single quote formatting classes’ 
ROUTINE SPAN_SINGLE QUOTE ( 


P_FORMAT STR, ! format string 
P_PARAM BLK, ! print using parameter block 
P-CHAR_CNT) = ! character position within format string 


ad ab 8 


BEGIN 


PAAR 


WO OONOuUSw 


tee 


8 
Ss 
64 ; FUNCTIONAL DESCRIPTION: 
$8 i This routine searches FORMAT_STR for the start of something other 
6 ; than one of the valid single quote format classes 
o8 : (Left-justify, center-[us ify, right-justify, extended) 
§ : beginning at the CHAR_CNT + Ist character 
0 : position in FORMAT_STR. CHAR_CNT is then set to the Last 
71 : character position in the formatting sequence. 
7 ; Thus CHAR_CNT returned 
7 ; unchanged indicates that no further formatting string was found. 
§ 74 : The routine returns 0 if an illegal formatting character 
ie formatting sequence is located and 1 otherwise. 
§ 6 i This routine will be called initially to determine the end of 
278 : an oy, constant in the format yoy This routine 
279 : will be called after any formatting has taken place to determine 
sey } the end of any trailing constant in the format string. 
sh i CALLING SEQUENCE: 
284 i STATUS.wic.v = SPAN_SINGLE_ QUOTE (P_FORMAT_STR.rt.dx, 
TH P_PARAM_BLK-mr.r, P_CHAR_CNT.mL.r) 
3087 ; FORMAL PARAMETERS: 
$289 i P_FORMAT_STR = address of string descriptor for format string 
290 : P-PARAM_BLK - address of — using parameter block 
291 : P-CHAR_CNT - address of longword for character position within 
$36 ‘ format string; this paramater is passed as the 
$3 ¢ position 1 before the point at which the format 
94 4 sequence should start; this parameter is returned 
344 as the Last position of the format sequence 
390 i IMPLICIT INPUTS: 
99 NONE 
01 i IMPLICIT OUTPUTS: 
08 NONE 
05 COMPLETION CODES: 
09 1 - routine completed successfully 
09 i SIDE EFFECTS: 


= F 8 = 0-74 Page 42 
29: AX=-11 Bliss-32 V4. g (8) 

| ~s 1e8eb-19be ViiSess8  Feasere SRedeAgrOnint 6 2:1 
| BASSSFORMAT_INT = Basic format interpre 1g~genn13ee 99:82: : 
BAST eFoRaint SPAN, SINGLE QUOTE - process single quote format ia 

ls 1 : 

3 1610 1} . NONE 
F161 18 5 i exampues: 
th Mf | fommtestm cmt condo cove 

: 161 16 $i noe vaca BED ager ? 

igs Rei meee | 

: 161 13 6; abc'rrrdeftcc 4 4 

: 1818 0 2: abc'cecdef*® = & 

; 161 ; $ 4 

1 ab‘ Lab 

is 16 0 PY i ab‘ ; 

4 1621 + ; ab'z 

; 16 : 

: 1654 5 § in 

> 1625 § 

3 oie -P_PARAM_BLK) : BLOCK C, BYTE] 

i i 5 FORMAT StR = (-B FORMAT STR) : BLOCK C, BYTE), 

; ig : EHARTS  CFORMATCSTREDSCGA_POINTER] * .CHAR_CNT) : BYTE: 

; 16 ° 

; 1631 Be 

; A to possible start po 

: 1688 i aa | tae feecteRng sequence 

3 1634 7 
1836 FLOR LM SOLE QOS STR er te is the case of a format string 
; 1839 $3 THEN i with just a single quote 

: 1639 re PARAM_BLK [PU_MASK] = .PARAM_BLK CPU_MASK] OR L_JUSTIFY_MASK; 

; 1640 rf PARAMBLK CCHARACTER) = 1; 

; 14g Ae 

* 1646 4 : 

> 1644 45 

; CTONEU .CHAR OF 

; 164g SBE Beseresescagy 

ae ot 4 ses [CHAR_L, CHAR_LOWER_L) : 

5 1% BEGIN 

3 1649 350 

3; 1650 2) ‘i. 

: 1682 3§ Span L and lL. 

3 165 54 3 i- ; 

i; 1654 23 SPAN.TEXT (MASK L, FORMAT STR, CHAR. CNT, 

> 1655 2 ~~" PARAM_BCK CCHARACTER]); FY_MASK 
; 1686 57 PARAM_BLK CPULMASK] = .PARAM_BLK CPU_MASK] OR L_JUSTIFY_ 

: 1888 59 END; ~ 

: 0 

1660 3 CCHAR_C, CHAR LOWER_C) 

; 1888 64 3 t+ 

: 1882 5 3 i Span C and c. 

3 1665 66 5 t= 


ome => ! 


| ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 18-58 -Sep-1984 9: AX-11 Bliss-32 V4.0 
38 SPAN_SINGLE-QUOTE = process single quote format 12-8687} 198 9: 2 £96 YBASRTL SR SRC BASFORINT. a82: 1 
SPAN_ oa * ae rf. roma) rents CHAR, CNT, 


CHA 
ENDe BLK wits mace (cr mOARAR- we CPU_MASK] OR C_JUSTIFY_MASK 


SeEss « 


NOUS WN—O0 


CCHAR_R, CHAR_LOWER_R) : 
BEGIN 


14 
} Span R and r. 


SSNS 


ooo 


FAPAAAAAO 


SPAN_TEXT PARAM BCK’ CHARACTERS CHAR_CNT, 
eal BLK CPU-MASK «PARAM “BLK CPU_MASK] OR R_JUSTIFY_MASK 


ae 


AAO 
wae 


CCHAR_E, CHAR_LOWER_E) : 
BEGIN 


'¢ 
Span E— and e. 


3 


SPAN_TEXT (MASK cf FORMAT STR, CHAR_CNT, 
PARAM_B 


K SCHARAC ACTER)); 
PARAR_ BLK CPU Bt. PARAM_BLK CPU_MASK] OR EXTEND_MASK 


CCHAR_UNDERSCORE]: 


OOO 
wr 


BE 


' 
i Underscore causes the next format character to be ignored. If not 

i followed by a valid format character, it has no effect. Underscore is 
i handled in SPAN. CONSTANT so that the format character may be appended 
g as a constant ifn the output string. 


SUVLSSeVse 


BEGIN 
PARAM_BLK [PU_MASK] = “th BLK CPU_MASK] OR L_JUSTIFY_MASK; 
Panan BLK CHARACTER] = 


aR 
ae 
ooo 
w 


COTHERWISE) : 
BEGIN 


SN IO OOOO AOAAO 


'¢ 
z Just a single quote followed by a constant string. 


PARAM_BLK [PU_MASK] 


= “¢ oe BLK CPU_MASK] OR L_JUSTIFY_MASK; 
a “BLK CCHARACTER) = 


TES; 
RETURN 1 ' return on success 


3 3 
3 1 
3 1 
3 7 
3; 7 
3; 1 
3} 
3 7 
3% 
3) 
3 7 
3} 
3} 
3 1 
3 7 
3 7 
3; 1 
3; 1 
3 1% 
3 7 
3 
3 7 
3; 
3 7 
3 
3 7 
3 7 
3 3 
3% 
3 7 
; 1 
3 7 
3; 3 
3; 1 
3 Y 
3 7 
. 7 
3 7 
3 7 
3; 7 
3 7 
3 3 
3 y 
3% 
3 7 
3 7 
3 3 
3 7 
3 7 
3 7 
3 7 
37 
3; 1 
3 7 
3 7 
3 7 
3 1 


SELF 

= 

oO 

co 
PRIPIPININIWININI NIA AIP IAI WIA POPPOPIPINONPY 


SSNS 
RORON ew oe oo 
Fe at ot ot ot ot et et et et et 
Rononon — sO Ot oO SS "OO 
WR —ODOONOufwn—O0 


MC O@wOusluwn—-o 


eae Ae, Nae 


8 
ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 P 4 
atk SPAN_SINGLE_QUOTE = process singie quote format 14- et 99:82:98 BASRTL SREIBASFORINT-B 2:31 a (8) 
; gis¢ 
7 425 END; ! End of routine SPAN_SINGLE_QUOTE 
007¢ 00000 SPAN. SINGLE QUOTE: os ak bi toe aoe 
° ave ’ + 7 7 Py 
0090V cr 9 900 MOVAB SPAN_TEXT, R6 : 
AC D 0 MOVL _PARAM_BLK, R2 3 2328 
4 ac D9 9008 MOVL §§ P-FORMAT STR, RS : 39. 
4 a aa F MOVL. P7CHAR_CAT, R46 3 2330) 
53 06 AS 4 (1 9013 ADDL3 (R4), &(RSS, R3 + 2331. 
64 65 10 FD 00018 cMPzV #0, 16, (R5), (RA) ; 2337 | 
4c soBF 6 91 0001F CMPB (R3), #76 t 2349 
13 itt BEQL : 
6c soBF 63 91 000 CMPB Ss (3), -#108 : | 
12 12 00029 BNEQ : | 
18 A2 9F 00028 1$: PUSHAB 24(R2) : 2357. 
54 DD 900¢E PUSHL R4 : 
55 DD 000 PUSHL 5 : 
02 Dd 00032 PUSHL #2 : | 
66 04 re 00 CALLS 4&4, SPAN TEXT : 
05 A2 08 88 00037 BISB2 #8, 5(R2T : 2358 
62 11 00038 BRB : | 
43 BF 63 91 00030 2s: CMPB ss (3), #67 : 2361. 
06 13 00041 BEQL : 
63 oBF 63 91 00043 CMPB =s-« (R33), -#99 : 
if 12 00047 BNEQ ; | 
18 A2 9F 00049 3s: PUSHAB 24(R2) : 2369. 
54 DD 0004C PUSHL R4 : 
55 DD O04E PUSHL 5 : 
04 DD 0005 PUSHL #4 : 
66 04 FB 003¢ CALLS #4, SPAN_TEXT : | 
05 = A2 02 88 005 BISB2 #2. 5(R2J : 2370. 
44 11 00059 BRB $ : 
52 oSF 63 91 00058 4$: CMPB Ss (R3), -#B2 : 2373 | 
06 13 0005F BEQL ; 
72.~=«s«#8BF 63 91 00061 CMPB Ss«(R3), #114 : | 
if 12 063 BNEQ : 
18 A2 9F 00067 5$: PUSHAB 24(R2) + 2381 
24 DD 906A PUSHL R4 : 
5 DD 0006C PUSHL RS ; 
08 oD 006 PUSHL 48 : 
66 4 re 99 CALLS #4, SPAN TEXT : | 
0S A2 1 88 0007 BISB2 #1. 5(R2 + 2382 
g 11 0007 BRB 3 
45 BF 6 91 00079 68: CMPBs«(R3), #69 : 2385. 
$ 13 O70 BEQL : 
65 8F 63 9 7F CMPB Ss (R3), #101 : 
Is 12 58 BNEQ 3 
18 Ad 9F 00085 7$: PUSHAB 24(R2) : 2393 
34 DD 000 PUSHL R4 ; 
5 DD 0008A PUSHL 5 : 
10 0D 0008C¢ PUSHL #16 : 


BASSEF OR, INT 


3; Routine Size: 


ASSSF 
PAN_SINGL 


163 bytes, 


e° t-duore 


Basic forma 
= process s 


0s 


05 As 
18 OA 
5 


Routine Base: 


in 


interprete 
gle quote 


4 
4 


: 


0 


-BASSCODE + 


td 4 9: AX-11 Oi iets 

Comat (e282 teins 00:29 4 myc BLis9-32, 
OO8E CALL #4, SPAN_TEXT 

8 0091 B1SB #4, Stay 

11 0009 BRA 9% 

88 00097 8$: B1SB82 #8, 5(R2) 

1) MOVL #1, 24(R2) 

DO OOOSF 9S: MOVL #1, RO 

04 O00A2 RET 


063A 


V4.0-74 
SRint B82:1 


FUNCTIONAL DESCRIPTION: 


| BASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 1b-se “19 729: AX-11 Bliss-32 V4.0-74 
ad SPAN_TEXT = span various text formatting classe 10-830 - 1984 99:82:98 EBASRTL SRE ASFORINT 88251 
7 4 1 ZSBTTL "SPAN_TEXT = span various text formatting classes’ 
58 ‘ ¢ } ROUTINE SPANcTEXT ¢ °Pe" Y ‘ ° 
4 § P_SPAN_MASK ! mask for SPANC instruction 
7 430 P-FORMAT STR, i format strin 
1 431 P-CHAR_CAT ! position withing format string 
7 ¢ ri ¢ P~FORMAT_LENGTH) = ! length of format sequence 
434 BEGIN 
5 435 
4 1o4 
& 
4 
4 
4 
4 


~“ i SSN NSS SNS 


40 This routine pers a@ particular class of text formatting characters 
re based on SPAN_MASK. 
108 CALLING SEQUENCE: 

STATUS.wic.v = SPAN_TEXT (P_SPAN_MASK, P_FORMAT_STR.rt.dx, 

P_CHAR_CNT.ml.r, P_FORMAT_LENGTH.wl.r) 
FORMAL PARAMETERS: 
P_SPAN_MASK - address of a byte with the mask for the spanc 
nstruction 
P_FORMAT STR - address of string descriptor for format string 
P~CHAR_CAT - address of longword for character position within 


format string; this paramater is passed as the 

position 2 before the point at which the format 

sequence scanc should start; 

this parameter is returned 

as the Last position of the format sequence 
P_FORMAT_LENGTH = address of longword for format Length 


a ee ee ee ee a ee a a i el a ee ca a a ce ce el el el el le el a el ee el el el el 


SN nw 
SSS SeESTss yoy py at at at at >t >t 
DONO VUVE WP OC OOVNOAUE WN —O0OW 
Bet et et ek ek ett et et et et et oe et et et 
AAPA BBP 
WRC DOONOULWIR—CWOo we 
POPPOPIPOPOPENOPONONOPINOPONOPINPIPUNOPIPONINIPUNINIPIPIPIPIPOPOPIPURIPONUPIPURIPUPUPONPIPUNINY 2 = = = 


re IMPLICIT INPUTS: 

ee ie 

oe? 65 IMPLICIT OUTPUTS: 

re $$ NONE 

768 468 

76° 469 COMPLETION CODES: 

770 470 

44 via 1 = routine completed successfully 
1g 47 SIDE EFFECTS: 

774 474 

or? of? NONE 

7" rif EXAMPLES: 

718 rt FORMAT_STR CHAR_CNT (im) CHAR_CNT (out) FORMAT_LENGTH 
731 cat abc'cccdef'cc 4 7? 4 
782 482 abc'llidef'cc 4 7 4 


r 
| BASSEFOR. INT 


3 
5 


sctetinamtanmeacn nani tet 
SecgorescosseseRocoseseeare S 


tt SS SS SP SF Ss SS SF SS Sh SS os 2 SS Vs Ss YS 2 Ss SS SS SS SS os os 2 ss 


PUP PVPVPV PUDDLES SIS SISTINE £* 


810 10 
st) 1 
HE 1g 
B14 14 
15 15 
a 16 
18 \3 
819 1 
820 0 
Oe 
83 


paseerganat INT = Basic format interpreter 1 
AN_TEXT ="span various text formatting classe 1 
’ abc'rrrdef'cc 4 4 4 
. abc'eeedef'cc 4 4 
! oF, eeeeere ; 7 4 
i 4 2 
4 abe tte 4 7 4 
: abc'r 4 5 2 
leo 
BIND 
SPAN_MASK = « ~pPan MASK) : BYT E, 
FORARY STR = (7P_FORMAT STR) : BLOCK C, BYTE), 
CHAR_CAT = (. AR_CN 
FORMAT LENGTH = (.P"FORMAT_LENGTH); 
LOCAL 


FORMAT _STR_LEN : UNSIGNED WORD, ! Soqperers for format length in SCANC 
CHAR_PTR; i pointer for SPANC routine return 


FORMAT STRLEN = FORMAT STR COSC$W_LENGTH] = ,CHAR_C 
HAR_PTR ="SPANC (FORMAT-STR LEN, -FORMAT_STR COSCSA_ POINTER] + .CHAR_CNT + 1, 
CLASS_TABLE, SPAR_MASK) 
IF .CHAR_PTR NEQU 0 
THEN 


FORMAT oLENGTH = .CHAR_PTR = (.FORMAT_STR CDSCSA_POINTER] 
«CHAR_CNT ="1) ! this gets the case abc'cccdef* 


ELSE IF .FORMAT_STR CDSCSW_LENGTH] - .CHAR_CNT + 1 GTRU 2 


THEN 
FORMAT_LENGTH = .FORMAT_STR COSC$w LENGTH] = .CHAR_CNT + 1 
! Ehis gets the case abc'LLl 
ELSE 
FORMAT_LENGTH = 2; ! this gets the case abc'r 
CHAR_CNT = .CHAR_CNT + .FORMAT_LENGTH = 1; 
RETURN 1 ! return when done 
END; ! End of routine SPAN_TEXT 
003C 00000 SPAN_TEXT: 
«WORD Save R2,R3,R4,R5 
50 08 0 00002 MOVL P_FORMAT_STR, RO 
5 0006 MOVZWL (RO), 
22 0c 0009 SUBL @P_CHAR_CNT, R5 
52 5 000D SUBW #17 RS “Font STR_LEN 
54 04 Ad 0c i ; 0011 ADDL3 @P_CHAR_CNT, 4TRO)> 
CF 1 Ab B 00017 SPANC FORRAL sik. LEN, 1(R4), 


FO 
SPAN_MASK 
1$ 
R1 


3 pe Oo0e2 ett 


Kk 8 
aaSep-198e 11:54:98 EBASRTL SRE SBASFORINT .082:1 


CLASS_TABLE, - 


8 
| BASSSFOR_INT paseor gaan INT = Basic format interpreter 16-Sep-19 729: AX-11 Bliss- Fh 
att AN_TEXT ="span ver ious text formatting classe 14- $e0n 13h 99:82:98 BASRTL.SRC Bas Agron Nr B82; ;1 


50 1 4 1%: MOVL 1, CHAR_PTR 
A 7 BEQL 2% 
50 4 SUBL2 R4, RO 
10 BC 01 A MOVAB 1 (RO), @P_FORMAT_LENGTH 
59 01 A f 28: MOVAB 1(R5), RO 
: CMPL , we 
6 A BLEGU 
10 BC p VL «RO, @P_FORMAT_LENGTH 
4 4 RB 4 
10 BC 2 00 42 3%: MOVL #2 , @P_FORMAT_LENGTH 
50 o¢ BC 10 8B ( 46 4$: ADDL3 aP FORR RMAT LENGTH aP_CHAR_CNT, RO 
¢ 8 FFA ; 4C MOVAB it ap CHA R_ENT 
01 p 0051 MOVL RO’ 
4 00054 RET 


; Routine Size: 85 bytes, Routine Base: _BASSCODE + 0600 


—o 


m 8 
FOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Blis 
3 SPAN_BACKSLASH = process backslash formatting c 1 =3007 1382 99:82:88 BASRTL. Re} 


ww 
on 


¢ V4.0-74 Page 49 


-3 
BASFORINT.852;1 (8) 


ZSBITL "SPAN_BACKSLASH = process backslash formatti lass’ 
ROUTINE SPAN_BACKSLASH ( 2 rmatting class 


P_FORMAT STR, ! format string 


P-PARAM_ BLK, ! print using parameter block 
PCHAR_CNT) = ! character position within format string 


1 

1 

1 

1 

1 

1 

1 
BEGIN 
ee 
' 
FUNCTIONAL DESCRIPTION: 
sie routine finds the end of a backslash formatting sequence 
: whic 
' 
i] 
' 
' 
' 
' 
' 
' 
' 
i] 
' 
] 
' 
' 
' 
! 
4 
' 
' 
| 
] 
' 
t 
' 
1 
t 
! 
] 
' 
' 
‘ 
‘ 
1 
‘ 
' 
' 
' 
' 
1 
‘ 
' 
' 


MEWN—OOOnNOu 


h consists of a backslash foliowed by some number of blanks (>= 0) 
followed by a backslash. The initial backslash has been located 
when this routine is called. An error is returned if something 
other than a proper backslash formatting sequence is located. 


i CALLING SEQUENCE: 


STATUS.wic.v = SPAN_BACKSLASH (P_FORMAT_STR.rt.dx, 
P_PARAM_BLK.mr.r, P_CHAR_CNT.mlL.r) 


i FORMAL PARAMETERS: 
P_FORMAT_STR - address of string descriptor for format string 


P-PARAM_BLK - address of print using parameter block 
P™CHAR_CNT - 


COONO VUES W "0 DONO Swn 00 


address of longword for character position within 
format string; this paramater is passed as the 
position 1 before the point at which the format 
sequence should start; this parameter is returned 
as the Last position of the format sequence 


G2 Od C9 Cd Cd Co Cd CD OD CD 
AAA AAMAIUI 


i IMPLICIT INPUTS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 
i COMPLETION CODES: 
1 - routine completed suscesetulty (format sequence 


Wwr— 


or backslash locate 
0 = no backslash format sequence located 


i SIDE EFFECTS: 
NONE 
i EXAMPLES: 


Seaaenanesesererere 


OONOVEWN OC 0W 


fo to Je) 
~ 


NNN NN NIAAA AAA AAA AMIN BS EPP LEE 


SSSVIO ARAN SSS MF WN OOOO MF UN OOO NOME Ui Oo Ooo on WN SO CONOUnes 


i a a a a ak a a a ee a ed dd od td 
Dy ah ah sh sb th dh dh dh bh db db ab db ab 4b 4b 4b 4d 4b-4d Ab Ah Ah Ab Ah Ab Ab Ah Ab Ah Ab ah ah ah hh dh ah dh ah ah ah ab ah ah sh ah dh ahah al ah al al al al eal 


Soe 
=—S 


abc \\def 4 5 1 


i which is a print using format error 


ND CHARS = (.CHAR_PTR) : VECTOR C, BYTE); 
'¢ 
: Make sure that the first character past the blanks is a backslash. 


If .CHARS (CO) EQLU CHAR_BACKSLASH 
THEN 


DOODODODOVOOOOODOOOOOOOODODO00NO 


WA AW ono Ponononononunon 


WO OOBVNO UE WN “QO OONOUSwWN oO 


BEGIN 
PARAM_BLK CCHARACTER] = .CHAR_PTR = 

(,FORMAT_STR COSCSA_POINTER) + .CHAR_CNT) + 2; 
CHAR, CHT = .CHAR-CNT + PARKA BLK CCHARACTERT = 1; 


his return gets the case abc\  \def 
! or the case abc\\def 


GEAFUN AS SON REUNLS 


n 8 

ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Pa 0 
att SPAN_BACKSLASH = process backslash formatting C 12-8081 382 99:82:98 EBASRTL-SRe BASF ORINT.B52;1 ~ (Bs 
3 1 1 ‘ abc\ \def 4 8 1 

3 3 § ' abc \def 4 4 

3 1 : abc\ def 4 4 

3; 1885 : abc\ <eos> 4 4 

3 1 ] 5 ‘ 
3 1 ; lee 
3 1 
3; 188 2 | BIND 
3; 1890 PARAM_BLK = (.P_PARAM BLK) : BLOCK C, BYTE] 
> 1891 FORMAT STR = (.P FORMAT STR) : BLOCK C, BYTE), 

3 ! 3 4 CHAR_CRT = (.P_CRAR_CNTS; 
3 1894 36 LOCAL 
; 1895 594 CHAR_PTR; ! pointer to possible start point 
3 ; 4 336 ! for formatting sequence 
; i 98 397 PARAM_BLK CPU_MASK] = .PARAM_BLK CPU_MASK] OR L_JUSTIFY_MASK; 
3; 1900 299 '¢ 
3 1902 et : Span blanks; next character should then be another backslash. 
5 190 60 
3; 1904 $08 CHAR_PTR = CHSFIND_NOT_CH (.FORMAT_STR COSCSW_LENGTH] = .CHAR_CNT, 
3; 1905 604 -FORMAT_STR COSCSA_POINTERT + ~CHAR_CAT, CHAR_SPACE) ; 
3 iene 605 
3; 190 60 '¢ 
3; 1908 60 ! CHAR_PTR should point to one past the last blank if a blank terminator 
3 44 re ; was found; otherwise CHAR_PTR is the null pointer. 
3; 1911 1 ! In VAX-11 Bliss-32 V3, SKPC should be a BUILTIN qt towing output registers 
3 1 \¢ 1 ! which could make the computation of the number of charaters in the 
3 ; i; : formatting sequence more efficient. 
: 1915 1 
3 ; \¢ : if CHSFAIL (.CHAR_PTR) 
; 1918 1 RETURN 0 ! this return gets the case 
3 : 19 : ' abc\ <eos 
3 3 
s 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
2 
3 1 
3 1 
3 1 
3 1 
3 1 
3 7 
3 1 
. 
3 1 


POPAAOAOAAAAAAAAAAAOAAAAAAAAAO 
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9 
| SASSEFOR INT BASSSFORMAT_INT = Basic format interpreter 18-Sep-19 4 00: 27:06 ae caTe car lene V4.0-74 Page | 


SPAN_BACKSLASH = process backslash formatting ¢c 14-Sep-1984 BASR BAS*ORINT.852;1 
; 1939 6 
; 1940 $38 ELSE 
; 136) ry RETURN 0; ! this return gets the case abc\ def 
3 1308 64 END 
3: 19446 64 
3; 1945 644 1 END; ! End of routine SPAN_BACKSLASH 
000C 00000 SPAN_BACKSLASH: | 
3 08 AC 00 00002 MOVL P_PARAM_BLK, R2 : 2589. 
5 04 AC DO 00006 OVL P"FORMAT_STR, RO : 2590. 
05 A2 08 88 0000A BISB2 #8, S(R2d : 2597 | 
51 60 § QOO0E MOVZWL (RO), RI : 2603. 
51 oc Bc C Boor ter @P_CHAR_CNT, R1 : | 
53 04 Ad oc «BC gt 0015 ADDL @P-CHAR_CNT, 4(RO), R3 + 2604 
63 51 20 8 00018 SKPC =o #32, -~R1> (RS) ; 2603 | 
02 12 OOO1F BNEQ 1$ 3 
51 D4 00021 CLRL R1 : 
51 DS 00023 1$: TSTL CHAR_PTR 3 2615) 
1D 13 OpOs3 BEQL 2$ 3 
5c soaSF 61 91 00027 CMPB (CHAR_PTR), #92 3 2629. 
17 1g 00028 BNEQ 2$ ; 
51 53 C2 00020 SUBL2 3, R1 : 2633, 
18 A2 0 Al 9E 00030 ovae 2(R1), 24(R2) F: 
50 oc BC 18 A2 C1 00035 ADDL3 24(R25, @P_CHAR_CNT, RO > 2634. 
0c BC FF AO 9E 00038 MOVAB <1(RO), @P_CHAR_CNT : | 
50 01 D0 00040 MOVL #1, RO 3: 2640) 
04 00043 ET r 
50 D4 00044 2$: CLRL RO 3 
04 00046 RET 3: 2644 


3; Routine Size: 71 bytes, Routine Base: _BASSCODE + 0732 


moc a 
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a 
BASSSFOR INT BASSSFORMAT_INT = Basic format interpreter 1b-sep-19 4 00: 27:06 AX-11 Oi legate ees 
13 SPAN_BRACKET = process < > formatting classes 14-Sep-1984 11:54: BASRTL.SRC JBASFORINT .B52;1 
3 1947 645 1 XSBTTL "SPAN_BRACKET = process < > formatting classes’ 
: 1268 of ! ROUTINE SPAN_BRACKET ( 
; 1950 28 1 FORMAT CHAR ! format character within < > 
3 1951 649 1 P_FORMAT STR, | format string 
3 19 ¢ $20 1 P-PARAM_ELK, ! print using parameter block 
: + ? $3) ! P-CHAR_CNT) = ! character position within format string 
3; 1955 re BEGIN 
; 1208 654 
3; 195 655 14+ 
; 1338 $28 ; 
: 195 65 ! FUNCTIONAL DESCRIPTION: 
; 1960 658 ; : 
3; 1961 659 ! This routine looks for a valid ‘'< >* sequence. Since some diagraphs 
; 1306 660 ! precede format characters and some follow, the calling program must 
3; 196 661 ! specify what particular sequence is valid at that point, and only that 
3 1388 re sequence is searched for. 
3; 1966 664 ! If a "$$" or ‘**" has been found, then if ‘<%>* or ‘'<0>' is 
; 1967 2665 : present, it must precede all other characters. So this routine should be 
3 1308 zee? : called before SPAN_NUMERIC finishes processing the format string. 
; 1970 668 ! SPAN_NUMERIC will also call this routine to check for ‘<CD>* at the end 
; 1971 yeh ! of a format string. 
3 13%6 670 } 
3 Hb 46, sor) CALLING SEQUENCE: 
3; 1975 ser 3 STATUS.wlc.v_ = SPAN_BRACKET (FORMAT CHAR. rt.r, P_FORMAT_STR.rt.dx, 
3: 1976 2674 § 1 P_PARAM_BLK.mr.r, P_CHAR_CNT.ml.r) 
3; 1977 2675 ! 
: 1978 2676 § ' FORMAL PARAMETERS: 
3; 1979 2677 ! 
; 1980 2678 2! FORMAT CHAR = address of format character within < > : 
3 1981 2679 2! P_FORMAT STR = address of string descriptor for format string 
3 1986 2680 2! P-PARAM_BLK - address of — using parameter block 
3; 198 2681 2! P-CHAR_CNT - address of longword for character position within 
3: 1984 $086 § ! format string; this paramater is passed as the 
; 1985 68 : position 1 before the point at which the format 
3: 1986 2684 2! sequence should start; this parameter is returned 
3; 1987 $082 : as the last position of the format sequence 
3; 1988 686 : 
3: 1989 2687 ! IMPLICIT INPUTS: 
3; 1990 soe } 
: 1991 689 ! NONE 
3 ioe 690 : 
3; 199 691 ! IMPLICIT OUTPUTS: 
3 1994 634 : 
3 1995 69 } NONE 
3; 1996 694 $ 
3: 1997 695 ! COMPLETION CODES: 
3; 1998 69 : 
3; 1999 69 : 1 - routine completed successfully (format sequence 
; 2000 698 : located) 
: 2001 699 : 0 - no format sequence located 
: One 700 ! 
; 200 701 ! SIDE EFFECTS: 


Page 52 
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09 
ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Pa 3 
aig SPAN_BRACKET = process < > formatting classes 137388-1 382 99:82:98 BASRTL. RC IBASFORINT .B 2;1 om (3 
+ 2004 108 ' 

; 2005 7 : NONE 

; 20 704 : 

: 705 ' EXAMPLES 

; 2008 7 $ : 

: ofp re } FORMAT_STR CHAR_CNT (in) CHAR_CNT (out) return value 
; 2011 709 ; 

; Big 710 : $S<2>448 a8 1 

; 201 711 : aL Ld 0 

3 2014 at ; $S$<O>#44 HAH ARH 1 

3 2015 71 i SSHAN WHE AHH 0 

3 Big 714 !<< 

; 201 715 

: 2018 at) BIND 

; 2019 71 PARAM _BLK = (,.P.PARAM_BLK) : BLOCK C, BYTE] 

3 2020 718 FORMAT STR = (.P_FORMAT STR) : BLOCK C, BYTE), 

; os) 719 CHAR_CAT = (.P_CRAR_CNTJ; 

3; 20 ; 720 

3; 202 721 LOCAL 

3; 2024 7 § SUPPRESS_STR, 

3; 2025 7 LEADING STR, 

; os8 724 FOUND _PTR, 

: 20 725 : 

; 2028 726 

3 $o6e 727 '¢ 

3 2030 728 ! Future formatting characters will be of the form ‘<x>'. This 

: 3h si¢e routine is set up to allow new characters to be added easily. 

3; 203 3 

3; 2034 t3¢ SELECTONEU .FORMAT_CHAR OF 

; 2035 3 

; 2036 2734 CCHAR_PERCENT): 

: 2037 735 ' 

; Spee 736 ! Suppress a zero value. 

: 2039 737 te 

3 2040 $f 8 BEGIN 

3; 2041 739 SUPPRESS_STR = ZASCIZ°<%>'; 

; nk} 2740 FOUND_PTR = CHSFIND_SUB (3 

3 204 2741 FORMAT _STR CDSCS$A_POINTER] + .CHAR_CNT, 
; 2044 74g 3, CHSPTR (SUPPRESS_STR)); 

3 2045 743 & IF (NOT CHSFAIL (.FOUND_PTR)) 

3 2046 744 3 THEN 

3 2047 745 4 BEGIN 

3; 2048 746 4 PARAM_BLK CPU_MASK] = .PARAM_BLK CPU_MASK] OR PERCENT_MASK; 
3 2049 2747 & HAR_CUNT = ,CRAR_CNT + 3; 

3; 2050 748 4 PARAR_ BLK CINTEGER_DIGITS) = .PARAM_BLK CINTEGER_DIGITS] + 1; 
3; 2051 749 & RETURN 1; ! "22>" was found 

: O2¢ 750 : 

3; 205 751 END; 

: 2054 36 

; 2055 75 CCHAR_ZERO): 

3 096 754 '¢ 

: 205 755 ! Print leading zeroes. 

; 2058 226 te 

3; 2059 75 BEGIN 

> 2060 758 LEADING_STR = ZASCI2'<0>'; 


| o 
BASSEFOR.INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 90:89:06 ret Bliss-32 ve ees Page 54 
1 SPAN_BRACKET = process < > formatting classes 14-Sep-1984 11:54: BASRTL.SRCJBASFORINT .852;1 (9) 
: 961 759 FOUND PTR = CHSFIND_SUB (3 
; é 76 FORMAT STR COSCSA_POINTER] + .CHAR_CNT, 
; 206 76 HSPTR (LEADING STR)); 
3 2064 762 4 IF (NOT CHSFAIL (.FOUND_PTR)) 
3; 2065 765 3 THEN 
; 066 764 & BEGIN 
3 206 765 4 PARAM_BLK CPU_MASK] = .PARAM_BLK CPU_MASK] OR ZERO_MASK; 
3 2068 766 4 CHAR_CNT = .CRAR_CNT + 3; 
3 2069 767 4 PARAM BLK CINTEGER_DIGITS) = .PARAM_BLK CINTEGER_DIGITS] + 1; 
3; 2070 768 4 RETURN 1; ' "20>" was found 
: $F $8 we 
3 ore 771 
+ 2074 77 CCHAR_C, CHAR_LOWER_C): 
: 2075 77 BEGIN 
; 076 774 '+ 
: 207 775 i Credit/debit. 
: 2078 77 in 
: 2079 77 1+ 
; 2080 778 ! First, check for <CD>. 
: 2081 779 ie 
: O8¢ 780 CD_STR = %ASCII*<CD>'; 
3 208 781 FOOND_PTR = CHSFIND_SUB (4 
+ 2084 78 FORMAT STR CDSCSA_POINTER] + .CHAR_CNT, 
3 2085 78 4, CHSPTR (CD_STR)J; 
; 086 78 4 IF (NOT CHSFAIL (.FOUND_PTR)) 
; 208 785 3 THEN 
3 2088 786 4 BEGIN 
: 2089 787 4 PARAM_BLK CPU_MASK] = .PARAM_BLK CPU_MASK] OR CD_MASK; 
3; 2090 788 4 CHAR_CNT = .CRAR_CNT + 4; 
: 2091 789 4 PARAM BLK CINTEGER_DIGITS] = .PARAM_BLK CINTEGER_DIGITS) + 1; 
+ 209 790 4 RETURN 1; 
3; 209 791 END; 
3 2094 138 
: 2095 279 ‘+ 
3; 2096 794 ' Then check for <cd>. 
+ 2097 795 in 
: 796 CD_STR = XASCII‘<cd>'; 
: 2099 797 FOOND_PTR = CHSFIND_SUB (4 
+ 2100 798 FORMAT STR CDSCSA_POINTER] + .CHAR_CNT, 
> 2101 799 4, CHSPTR (CD_STR)J; 
; 108 800 4 IF (NOT CHSFAIL (.FOUND_PTR)) 
: 210 801 3 THEN 
: 104 808 4 BEGIN 
> 2105 4 PARAM_BLK CPU_MASK] = .PARAM_BLK CPU_MASK] OR CD_MASK; 
: 2106 804 4 CHAR_TNT = .CRAR_CNT + 4; 
: 2107 805 4 PARAM BLK CINTEGER_DIGITS] = .PARAM_BLK CINTEGER_DIGITS) + 1; 
+ 2108 806 4 RETURN 1; 
3: 2109 80 END; 
3: 2110 808 
+ 2111 809 END: 
: 18 810 
> 211 1 COTHERWISE): 
3 2114 i '¢ 
3 2115 1 ' Should never reach here. 
3 8 814 le 
3 211 815 RETURN 0; 


BASSSF OR, INT 


60 


60 


66 


TES; 


'¢ 


BASSSFORMAT_INT = Basic format interpreter 
SPAN_BRACKET = process < > formatting classes 


If we get here no ‘<x>" was found. 


RETURN 0; 
END; 
5E 
56 08 
HS 
23 
6E 003E253C 
30 04 A6 
0 6E 
5 
5 
05 AG 
30 
04 AE 003E303C 
50 06 A6 
03 046 AE 
53 
53 
05 AS 
65 
00000043 =3=8F 
00000063 _ —=s BF 
08 AE 3&44433C 
50 04 A6 
04 08 AE 
5 
5 
68 AE 3&64633C 
56 4 Ab 
04 08 AE 


FNOVMON A OOCOS WMV | NOOOOC Mul S & FO 
DOO FW FUMIO FM POP OD WWIII FF ONO 


F 9 
1eo$ep=1986 11:54:58 EBASRTLSSRESBASFORINT 082; 1 


! End of routine SPAN_BRACKET 


007C 00000 SPAN_BRACKET: 
. WORD 


ets 


S$ 
2 


1$: SUBL2 


2s: CMPL 


ee wm ee nw woo lololololololoelolo) 


SA AAA MAMIE & AAAI AIAN SS 


6$: 


AAA ODNMHO FMD ONMOS ONL HK ROLE SNM MOOAINGA S&S — 
Ww 
wr 


Lt) 
7$: SUBL2 
NE 


Oooo 
Be SO OS SS SSS SS SSS SSSSSSssssssssssssss 


ONIN OWO ON WA * "OWN OW DO ON  —“DWNOWO- On) OF 


SOOSCCOSCOCOSOOOOSOOSOSOOOOOOOSOOOOOSOOOOOCOOOoOoOO: 


WND 229 “WN 9 9 9 2 O29 9 SW "9 O99 Sono - oS 


SoOOOOCOCOoOOoOoOSoooOo 


RSSSR SSSA 
@ 
o 


ADDL3 
MATCHC 


Save R2.R3,R4,R5,R6 

wi2, SP 

P_FORMAT_STR, R6 
PARAM_BLK, 

FORMAT _CHAR, RO 

RO, #37 


#4072764, SUPPRESS_STR 
(R5), 4(R6), R 
#3, SUPPRESS_STR, #3, (RO) 


#3, R 

#3, Ra 

#16, 5(R4) 

RO, #48 

#4075580, LEADING_STR 
(R5), 4(R6), R 
+e LEADING_STR, #3, (RO) 


#3, R3 
#3, R3 


1 

a2, 5(R4) 

#3, (RS) 

17 

RO, #67 

6$ 

RO, #99 
#1044661052, CD_STR 
(R5), 4(R6). RO 

a4, €>_STR, #4, (RO) 


#4, R 
#4, R 


10 

#1046766396, CD_STR 
(R5), 4(R6). R 

#4, €D_STR, #4, (R6) 
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———————_—————__— 


} 
| BASSSFOR_INT BASSSFORMAT_INT = Basic format interpret 2% $ep-1984 9: AX-11 Bliss-32 V4. P 
bein SPAN_BRACKET = process < > formatting classes ~30071 382 99: §2 86 BASRTL.SR Re BASFORINT B92; 1 — (38 
fb RM Rt HE : 
33 4 i 2 Bs: SuBL2 whe R ; 
05 mM 40 a On £ 15: B16 as, 5(R4) ; 603 
14 AG 06 3 11$: INCL 20¢R4) + 2805. 
50 01 yi poy #1, RO ; 2806. 
50 D4 0008p 128: CLRL RO : 2824 


; Routine Size: 192 bytes, Routine Base: _BASSCODE + 0779 


oo 


co 


H 9 
ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 P 7 
att SPAN_NUMERIC = processing numeric format class 1 =3007 1 3c 99:82:98 EBASRTL SRE BASFORINT -682:1 a9 435 


1 ZSBTTL "SPAN NUMERIC = processin ic f ‘ 
ROUTINE SPAN-NUMERIC ( aig g numeric format class 


Ooo 


! numeric formatting mode 
. ; sornes strin 
P-CHAR_CAT ! position withing format string 
! print using parameter block 


MePwn— 
MFWn—OOOnOu 


sequence under consideration. This routine will call itself 
aw addy ant NUMERIC _MASK should be set in the main driving 
routine before a call to this routine. 

CALLING SEQUENCE: 


STATUS.wlc.v = SPAN_NUMERIC (P_SPAN_MODE.rl.r, P_FORMAT_STR.rt.dx, 
P_CHAR_CNT.ml.r, P_PARAM_BLR.mr.r) 


FORMAL PARAMETERS: 
SPAN_MODE - address of longword for type of numeric span 
FORMAT STR - address of string descriptor for format otring 
CHAR_CAT - address of longword for character position within 
format string; this paramater is passed as the 
position 1 before the point at which the format 
sequence should start; this parameter is passed 
as the position 1 before the starting character 
position of the format sequence 
P_PARAM_BLK - address of print using parameter block 
IMPLICIT INPUTS: 
DIGIT_SEP_DESC = descriptor for digit group separator 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
1 - routine completed successfully 
SIDE EFFECTS: 


NONE 


DONA UVE WN“ OVONOUSWN—O 


a 
a 
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wn 
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Be Se Se Se Se Ge Se Se Se Se Se Se Ge Ge Se Se Fe Se Se Ge Ge Ge Se Se Se Ge Ge Se SH Ge Se Se Ge Se Se Ge Se Ss Se Se Se Ge Se Se Se Se Se Se Se Se Se Ge Ge Se Se Ge Ge 


1 
1 
1 
1 
1 
1 
1 
BEGIN 
'ee 
] 
} FUNCTIONAL DESCRIPTION: 
‘ This routine handles various portions of a numeric reraces tae 
: sequence based on SPAN_MODE. CHAR_CNT will be returned as the last 
character of the particular portion of the numeric formatting 
1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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BIND 
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BASSEFOR_INT Bran UREA INT = Besic fornet interpreter 1b-sep p- 138% 90: $7: 96 AX-11 BLi iste 32,¥8 0 Pose sat 


ERIC = processing numeric format class 14-Sep-1 BASRTL.SR ORINT. 5 2;1 
5 SPAN_MODE = « ~pPAN MODE 
q FORMAT ie "PAR Ste) BLOCK C, BYTE, 
PAR AM BLK = ARAA agsh? : BLOCK C, 6YTEI, 
5 AR_CNT = S 
MAP 
4! DIGIT_SEP_DESC : BLOCK C, BYTE); 
38 LOCAL 
91 LAG, ' 1 if Sorageting ° is allowed; 0 otherwise 
3 BERTON. MODE ! fraction mode ( wy E or _N 
9 INTEGER moDE, | 1 if integer node: otherwise Virection mode) 
94 i temporary Length for Tornat sequenc 
95 CHARS LEMa: i pointer to character in format string 


ee CASE .SPAN MODE FROM K SPAN INTEGER TO K SPAN FRACTIONNO.E OF 
900 [K_SPAN_INTEGER) : 
“BEGIN 


LAG = 
90 Berion nope = K_SPAN_FRACTION; 
904 INTEGER_MOD = 7 


SeseereReSSelsoe 
: 


333 


CK_SPAN_INTEGER_NO_E) : 
“BEGIN 


3 


LAG = 
Fer RIOD RODE = K_SPAN_FRACTION_NO_E; 
INTEGER. MODE = T 


eat se > ss a 


MEUM 0 DONO UE WUD) “OC OONOUS WN oO 


[K_SPAN_FRACTION) : 
BEGIN 


E FLAG = 1; 
IRTEGER_MODE = 0 
END; 


as a a 


MEWN @O OBNOUEWN “OO ONOUES WN Oo 


CK_SPAN_FRACTION_NO_E) : 
BEGIN 
E_FLAG = 0; 
IRTEGER_MODE = 0 
END; 
COUTRANGE) : 
'¢ 
This should never happen. 


RETURN 0 ! return here is an internal error 
TES; 


'¢ 
Span pound signs. 


Be Se Se Se Se Ge Se Se Se Se Se Se Ge Se Se Ge Se Se Ge Se Ge Ge Ge Ge Se Ge Se Se Se Gs Se Se Se Se Se Se Ge Se Ge Ge Se Se Ge Se Se Se Se SH Se Se Se Se Ge Se Ge Se ee 
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SPER UMCRIC = prosessing nme interpreter ge so0-1986 99: $2: 96 rest Bliss-32 Me or ake. Poge say 


93 
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SESSEIZES 


OOOOOOOOOOOO 


wOOOOODOOODSO 
w 


g numeric format class -Sep-1 BASRTL.SRCJBASFORINT.B 


! me, vanet Bliss-32 v3, SKPC should be a BUILTIN allowin euteut re registers 
! which cquce make the computa a of the number of charaters 
i. formatting sequence more efficient. 


CHAR_PTR = CHSFIND NOT _CH (.FORMAT_STR COSCSW_LENGTH] = .CHAR_CNT, 
-FORMAT_STR COSCSA POINTER] + .CHAR_CRT, CHAR_POUND); 


IF CHSFAIL (.CHAR_PTR) 
THEN 


BEGIN 
if - INTEGER _MODE 
HEN 


PARAM_BLK CINTEGER PiGits2 = ,PARAM BLK EAR CHT” DIGITS] 
+ ,FORMAT_STR COSC$W_LENGTH] = .CHAR 


ELSE 
PARAM_BLK yi DIGIT] = .PARAM 3Pt* eg Le DIGITI 
+ .FORMAT_STR COSCSW_LENGTH] = .CHAR_CNT 
‘ Selleubar that itor’ is alrea oy, 
i one fraction digit in the ' case 


CHAR_CNT = .FORMAT_STR COSCSW_LENGTHI; 


ELSE 
BEGIN 
BIND CHARS = (.CHAR_PTR) : VECTOR C E); 
TMP_LEN = .CHAR_PTR~= (.FORMAT_STR tosc$a- POINTER + .CHAR_CNT); 
IF cINTEGER MODE 
PARAM_BLK CINTEGER_DIGITS] = .PARAM_BLK CINTEGER_DIGITS) 
+ .TMP_LEN 
ELSE 


PARAM_BLK g Craton DIGIT] = .PARAM_BLK CFRACTION_DIGITJ 


!' remember that there is a 
i one fraction digit in the case 


CHAR_CNT = .CHAR_CNT + .TMP_LEN; 
seLecipae ~CHARS (0) OF 


CCHAR_COMMA] : 
'¢ 
: Commas should not occur in the fractional part. 
IF .INTEGER_MODE 
THEN 
BEGIN 


'¢ 
! Each comma is picked up separately rather than doing a spanc instruction 


Rane 


K 9 
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' with pound signs and commas since the digit separator on output can 
H have a Length-other than ?: ° - . 


PARAM_BLK CINTEGER b1GtTS) : 
-PARAM_BLKCINTEGER DIGITS) 
+ .DIGT ~SEF DESC COSCS$wW_LENGTH); 
CHAR_CNT = .CHAR_CNT + 1; 
SPAN-NUMERIC (K SPAN_INTEGER_NO_E 
D 


PARAM_BLK CPU MASK) = -PARAM_BLK CPU_MASK] 


FORMAT_STR, CHAR_CNT, PARAM_BLK) 


=) 


CCHAR_PERIOD] : 
te 
Periods should not occur in the fractional part. 


oo 
IO 


w 
SERRA SSaNose Ur OOP sobs 


— a 2 


Mew DO NAAR SOON ME WM ODS 


IF _.INTEGER_MODE 
THEN 


BEGIN 
PARAM_BLK CPU_MASK] = .PARAM_BLK CPU_MASKJ 
R PERIOD MASK; 
CHAR_CNT = .C 
SPAN_NUMERIC 
PARAM 
END; 
CCHAR_MINUS) : 
BEG 


CHAR_CNT = .CHAR_CNT + 1; 
PARAR_BLK CPU_MASK]) = .PARAM_BLK CPU_MASK] OR MINUS_MASK 


HAR_CNT + 1; 
(PERIOD_MODE, FORMAT_STR, CHAR_CNT, 


CCHAR CARAT) : 
IF .E_FLAG 
THEN 


BEGIN 


HAWAII 
WAIANAE POP NOPoPoTPofnonongd 


COOQoooooloooooooooooooooooo 
iw oY oY oY oF oT ot ot ot ot ot ot et ot et et td nn ol ee el ol ee er er rt er eee eo oo oo oY oo oo 


9 
0 '¢ 
3 38 ' If the next three characters are carats, we should indicate that E format 
¢ 4 : is desired and move CHAR_CNT to Last carat. 
& 041 ' For efficiency, we make sure that we have four carats beginning with 
é peg : the character pointed to by CHAR_PTR which we know is a Carat. 
044 
8 045 IF .FORMAT STR CDSCS$W_LENGTH] = .CHAR_CNT GTRU 3 
9 pee AND ..CHAR_PTR EQLU .E_FORMAT 
50 04 ' Note that we want .. here since 
51 $ ! CHAR_PTR is an address 
25 ! and we want the actual value 
5 50 ! pointed to by that address 
54 051 THEN 
55 052 BEGIN 


= an ENT et ome eget a ee PHS2:88 — YGASmt SReSeaSrOniNt-082;1 Page 18) 


PARAM_BLK CPU WASK = .PARAM_BLK CPU_MASK] 
CHAR_CNT = .CHAR_CNT + 4; 
END 


te CCHAR_LF ANGLE): 


i IF "<CD>" is present. it will be the Last thing in the format string. 
; i Catt SPAN BRACKET to check for it. 


SPAN_BRACKET (CHAR_C, FORMAT_STR, PARAM_BLK, CHAR_CNT); 


WR —OOONOUE Ww 


SSSaSSE 


Wo 


Vi FUNNO —O 


TES 
END; 
071 
ore RETURN 1 
074 END; ! End of routine SPAN_NUMERIC 
O1FC 00000 SPAN_NUMERIC: 
. WORD Save R2,R3,R4, RS. R6,R7,RB : 382 
54 08 AC D0 00002 MOVL P_FORMAT SfR, : 288 
26 10 AC DO 00006 MOVL “PARAM ree’R 3 seae 
5 OC AC DO OO00A MOVL P~CHAR CNT, R3 + 2885 
03 01 06 AC CF 90006 CASEL SPAN MODE, #1, #3 + 2897 
0022 001D 0013 0008 00013 1$: «WORD ¢s- 18.° : 
5$-1$,- 3 
6$- -1$ ; 
00F1 31 0001B BRW 2$ : 293 
56 1 DO OOO1E 28 MOVL #1, E_FLAG : 290 
58 3 pO 00021 MOVL #3, PERIOD_MODE : 290 
5 11 00024 BRB 4 > 2904 
6 04 00026 38 CLRL E_FLAG : 2909 
58 4 D0 00028 MOVL so, PERIOD MODE 3 291 
57 1 p o08 B 4$: MOVE #1, INTEGER_MODE : 291 
56 1 o0 0030 5$ MOVL #1, E_FLAG 3 291 
1 000 BRB ; > 291 
D4 000 $$ CLRL LAG : 36 
04 0 $ CLRL INTEGER MODE : 9 
50 64 3 9 8$ MOVZWL (R4), RO > 294 
0 63 C2 0003C¢ SUBL ¢ (R3), RO : 
55 06 AG c 003F ADDL (R3), 4(R4), RS ; 294 
65 50 8 O44 SKPC = #35, RO, (RS) > 294 
12 00048 BNEQ 46-9 ; 
D4 O04A CLRL aR ; | 
1 b3 004C 9$ TSTL CHAR, PTR + 2947 
a BNEQ 2s 3 


i 


BASSEFOR, INT 


BASSSFORMAT_INT = Basi 
SPAN_NUMERIC = process 


FF3B 


a 9 
Sat berraa, tts. 
57 €9 
How k te 
6 ef $ : 118 
4 5 C 7 12$ 
5 iS Has 
4 i 0070 
a 8 ce OO7F 13$: 
0083 14$: 
- i oe 
70 59 5 0088 
ae ae bs 008 
23 00000000 gf 25 38 
a1 8 Sp 
5 DD BO0At 
ss BF Bh 
5 11 4 4 
2 61 91 OOOAD 15$: 
19 1s OOAC 
5A 57 4 si 
A2 40 8F 88 00081 
63 D6 00086 
26 DD 00088 
33 DD OOOBA 
54 DD 000BC 
58 DD 0008 
CF 04 FB Q00CO 16$: 
44 11 000C5 
» gh 9) HBS 178 
- 3 Bs ance 
: Obs 198: 
8F 61 91 D4 19%: 
1F 12 Roe 
E 56 E9 DA 
; fie 
HS 
CF 1 } OE 
1¢ ED 
A 80 BF as Boer 
6 0 c F4 
; 1 st ; 
3¢ 61 91 OOOF9 208: 


19be 9:82:98 EBASAtL SRE SeaSrOnint-082;1 


ER MODE, 10% 


EGER_MODE 
TMP OE oO aa} 


1 
INTEGER_MODE, 21$ 
s R2) 

DIGIT _SEP_DESC, RO 
RO, 20(R27 

(R$) 

R 

R 

R& 

#2 

16$ 

(CHAR_PTR), #46 


INTEGER_MODE, 218 
#64, 4(R2) 
(R35 


nS 


Ra 
PERIOD_MODE 
#4, SPAN_NUMERIC 


CHAR_PTR), #45 


4(R2) 
AR_PTR), #94 


~~ 
>_> 
a 
@wD- 
oo 


Ree 
Ww 


AR_PTR), E_FORMAT 


8, 4(R2) 
R3) 


PTR), #60 


TH VOTE WE "STH wu 


za lU rm 


A 


HAR_PTR, TMP_LEN 
13$ 


; 
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OD 12 OO0FC BNEQ 21$ 3 
C 68 183 PUSHR #*M<R2,R3> 3 3066 

4 DD 001 PUSHL 4 ; 

7E 43 8F QA BROS MOVZBL #67, =(SP) 3 

FE35—sCF 4 FB 00106 CALLS #4, SPAN_BRACKET : 
50 1 00 BR ee 218: MOVL #1, RO ; 3072 

04 OO10E RET : 
50 D4 OO10F 228: CLRL RO 3 3074 

04 00111 RET : 

; Routine Size: 274 bytes, Routine Base: _BASSCODE + 0839 


'¢ 


'¢ 


SS OS Oo OF oe oe oe ot ot ot ot at ot tk eee 


string concatenates. 


: Do error checking for the format field. 


i Set up a temp dynamic string descriptor 


pryoee foi8c:58 | PeAsnre SaeSeageORior o%2;1 


vert and format the argument 


ALL of the formatting and most of the error checking will be done here. 


lock 


for currency symbol 
for digit group separator 


for radix point 


! temp for param_blk Cpu_mask] : 
! temp for converting and concatenating 
! Length returned by conversion routine 


N 
PARAM_BLK = (.P_PARAM_BLK) : BLOCK C, BYTE); 


to use for numeric and text conversions and 


10 

egyron BASSSFORMAT_INT = Basic format interpreter 1-Se 
-01 OUTPUT_ARG = convert and format 14-Se 
; 2379 075 1 XSBTTL ‘OUTPUT_ARG = convert and format’ 

; 9 Ory ! ROUTINE OUTPUT_ARG ( ! con 
$ Bs B78 : P_PARAM_BLK) = ! print using paramter block 
H 080 BEGIN 

; 2385 081 

3 0 ¢ 144 

; 238 4 : 

; rs bee FUNCTIONAL DESCRIPTION: 

3 my . 6 This action routine is the heart of the whole thing. 
; 239 088 ; 

H 9 089 ' FORMAL PARAMETERS: 

3: 2394 090 : 

; 2395 091 : P_PARAM_BLK.mr.r - parameter b 
3; 2396 O36 : 

: 2397 09 ! IMPLICIT INPUTS: 

; 2598 094 : 

3; 2399 095 : CURRENCY _DESC - descriptor 
; 2400 096 : DIGIT_SEP DESC - descriptor 
3 2401 097 : RADIX_PT_BESC - descriptor 
; 240 098 : 

; 240 099 ! IMPLICIT OUTPUTS: 

3 2404 100 } 

: 2405 3 : NONE 

; 2406 3 : 

; 2407 2 ! ROUTINE VALUE: 

; 2408 : 

3; 2409 : NONE 

} 10 ; 

3 2411 2 ! SIDE EFFECTS: 

; \¢ e} 

; 1 § : NONE 

3 14 ; 

3: 2415 2 !-- 

3: 2416 § 

3; 2417 ; 

; 2418 2 TEMP_MASK, 

; 19 3 § DSC : BLOCK (8, BYTE], 

3 $9 3 OUT_STR_LEN; 

: 23 BIND 

5 4 

3 5 

; 6 

: : 


IAPIPIPOPPINIPYNININYD 2 2 OO OS SM OOOOOOCCOCO 
2SSONOM EWN OOONANE WN OCD NOOE WR 


PROPININIMOPENININIMININDPPO NINN ANON Po PoPonononyd 


Aw OOON 


AW 


DSC COSC$W_L HJ 
DSC EDS tsart J 


ae 


s 0; 
= DSCSK_CLASS_D; 


rae af 


a l 
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UT_ARG = convert and format 14-Sep-1984 BASR RINT.B52;1 


DSC EDSC$B_DTYPE) = DSCSK_DTYPE,T; 
DSC CDSCSATPOINTER] = 0; 

{ 

! 


c,r 
“Mm 
uw 


'¢ 
! Use a temporary print using mask in the following SELECT statements. 
! This is because zero_mask and percent_mask fall outside the range 
0 to e_mask, but they are f formats. 


TEMP_MASK = .PARAM_BLK CPU_MASK]; 


IF _(.PARAM_BLK CPU_MASK] AND ZERO_MASK) NEQ 0 
THEN TEMP_MASK = .TEMP_MASK XOR ZERO_MASK; 


IF (.PARAM_BLK CPU_MASK] AND PERCENT_MASK) NEQ 0 
THEN TEMP_MASK = .TEMP_MASK XOR PERCENT_MASK; 


IF (.PARAM BLK CPU_MASK] AND CD_MASK) NEQ 0 
THEN TEMP_MASK = .TEMP_MASK XOR™CD_MASK; 


i This is where the action is. A case is done on the data type to determine 
! the proper syntaxing and the conversions which are necessary. The conversion 
routines do most of the formatting. 


AOMMINAGTUNUIUIUTIUIUT ES & 
WR "SO OONOULS WN —OOW 


Pied ot Ss 


moMmroronnys 


a ne CELEM_TYPE] FROM DSCSK_DTYPE_B TO DSCSK_DTYPE_H OF 
conversion. 
LOCAL 


CDSCS$K_DTYPE_B, DSCSK_DTYPE_W, DSCS$K_DTYPE_LJ : 
BEGIN 
14 
! Integers. 
D_VALUE : VECTOR (2); ! hold double precision floating value 
; 


! Do the necessary syntax checking. — , 

!' Convert the value to double precision and call the appropriate 
CVTLD (.PARAM_BLK CELEM], D_VALUE ([0)); 

vies”) ea -TEMP_MASK OF 


CO TO E_MASK - 1) : 


+ 
F format 


PAR SO OONAU EWN 0 ODNAUE WN 9 ODNAUE WN 0 COONAN EWN SO OONOUS wT 


FRACTION DIGIT), 
i U_RASK] = .PARAM_BLK CPU_MASK] AND K_CVT_FLAGS; 
~PARAM BLK CPU_MAS e 


IF NOT OEE F (D_VALUE, .PARAM_BLK CINTEGER_DIGITS), 
U 
OUT_STR_LEN, DSC, 0, ! Scale factor 


abadadabdabuwiabab-bababababababailabadabaditabab baba Babaabababadabaabababababuabaabababababubababahabubabababab 
0009 09 09 09 09 09 09 09 SI NIN NS SN SN NDP PA AAA AAA MTU Se BB BB EE PAN 


Mrvorononw 
Sane 
APOAAAAS 
NOUS 
NINN WWII NIAAA AI AIA AAAI AAAI AAAI A AAA AAA AAA AAA AAA OD 


onouw 


a 


coo 
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BA 8 : OUTPUT _ARG = convert and forma < 13-808 - 1382 90:82:96 BASRTL.SRC pace ORint 68251 oe 9 
3 2493 189 CURRENCY DESC, DIGIT_SEP_DESC, RADIX_PT_DES<) 

2494 190 8 THEN : Poet =e | 
> 2695 191 4 BEGIN | 
3 24 136 4 

> 249 193 4 1+ 

3; 2498 1946 4 i The number will not fit into the field width supplied. So the 

3 44 132 : 1 number is returned in Print format with a '% ' appended. 

3 01 199 4 

3 oe 198 4 LOCAL 

3 37 +44 2 PERCENT_DESC : BLOCK (8, BYTE); 

3 be 01 4 PERCENT_DESC CDOSCS$B_CLASS] = DSCSK_CLASS_S; 

3 208 8 4 PERCENT_ DESC DSCSB_DT IPE = DSCSK_ DT YPE— Ts 

; 250 03 4 PERCENT_DESC DSCS$W_LENGTH) = 

3 2508 04 4 CENT-DESC DSCSA POINTER] = = bencen 

> 2509 05 4 BASSCVT-OUT_D G ( LUE T SiR lin, 

; 210 06 6 STRSCONCAT UPERAR” “BL key’ itr PRRAM, rat Ctrer’ “STRI, PERCENT_DESC, DSC); 

3 21§ 208 ELSE 

P4 217 $18 STRSCONCAT (.PARAM_BLK CRET_STRJ, .PARAM_BLK CRET_STRJ, DSC); 

3 2515 ii CE_MASK TO R_JUSTIFY_MASK = 1] : 

3; 2516 \¢ 

3; 2517 21 '+ 

3: 2518 214 ' E format 

3 $238 215 '- 

3; 2520 216 

3; 2521 3217 3 IF NOT BASSCVT_OUT_D_E (D_VALUE, .PARAM_BLK CINTEGER_DIGITS], 

; 322 3218 3 . PARAM~BLK "PERACITON O1GL13,, 

3: 252 3219 4 (PARA ty BLK MASK] = .PARAM BLK CPU_MASK] AND K_CVT_FLAGS; .PARAM_BLK CPU_MASK 
: 2524 3220 R_LEN, .PARAM_BLK CRET cale factor 

3; 2525 $$) CURRENCY DESC, DIGIT _SEP_ DESC, RADIX. _PT * esc 

3; 2526 2 ¢ THEN 

3; 2527 2235 4 BEGIN 

: 2528 224 & 

3 297 225 4 1+ 

3; 2530 226 4 i The number will not fit into the field width supplied. So the 

3 33! 34 ? - number is returned in Print format with a '% ° appended. 

5 238 $$9 4 

: 2534 230 4 LOCAL 

3 332 231 2 PERCENT_DESC : BLOCK (8, BYTE); 

; 238 $3 4 PERCENT_DESC COSCS$B_CLASS] = DSCSK_CLASS_S; 

3; 2538 234 & peneent “DESL DSC$B_ TYPE] = DSCSK_DTYPE_T; 

3; 2539 § 5 4 PERCENT_DESC COSC$W_LENGTH) = 1; 

: 2540 6 4 PERCENT-DESC CDSC$A-POINTER) = PERCENT; 

> 2541 337 4 BASS$CVT-ONT_DG 0, OUT_STR_LEN, DSC, 0); 

; 34 38 4 STRSCONCAT f T.PARAMTBLK CRET’STRJ; .PARAM.BLK CRET_STR], PERCENT_DESC, DSC); 

3 2544 $2 ELSE 

2 se2 $3 STRSCONCAT (.PARAM_BLK CRET_STRI, -PARAM_BLK CRET_STR], DSC); 

: 249 t3 COTHERWISE) : 

; 2548 44 '¢ 

3: 2549 45 ! Text formats 
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ee (BASSK_PRIUSIFOR); 


END; 
COSCSK_DTYPE_FJ : 
14 
} Floating = single precision 
BEGIN 
SELECTONEU .TEMP_MASK OF 
SET 


WR OOONOUS WHO 


PBEAPED®_EMASIVIVII EE £ 
WP “SO OONOUNE WN OVOOne 


{CO TO E_MASK = 1] : 


14 
F format 


mon 
AAAS 
we 


IF NOT BASSCVT_OUT_F_F (.PARAM_BLK_CELEM], .PARAM_8LK CINTEGER_DIGITS), 
.PARAM_BLK” CFRACTION_DIGITI, 
(PARAMBLK CPU_MASK]~= .PARAM_BLK CPU_MASK] AND K_CVT_FLAGS; 
.PARAM-BLK CPU"MASK1), 
OUT_STR_LEN, DSC 

ita CURRENCY_DESC, DIGIT_SEP_DESC, RADIX_PT_DESC) 


BEGIN 
'4 


! The number will not fit into the field width supplied. So the 
} number is returned in Print format with a '% ° appended. 


te ated PP PN RPA AR SS SRA See 


BNLSSSLSRRAN LS SSVSARANASSSIET 


WA. 


AANAPIPIPONIPONINININDPININIPINININIPYNINYPIPUPIPOP PoP Noo Nofnonofnofry 


LOCAL 
PERCENT_DESC : BLOCK (8, BYTE); 


PERCENT_DESC CDSC$B_CLASS] = DSCSK_CLASS_S: 
PERCENT-DESC COSC$B-DTYPE] = DSCSK-DIYPE-T: 
PERCENT-DESC COSCS$W-LENGTH Messens 


j= 
PERCENT_DESC CDSCS$A_POINTER) = ; 
. CEL end. 0, OUT _STR_LEN, DSC, 0 


BASSEVI“OUT-D.@ (PARAM BL ); 
STRSCONCAT T.PARAM_BLK CRE “PARAM_BCK CRET_STRJ, PERCENT_DESC, DSC); 


E 
ELSE 
STRSCONCAT (.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STR], DSC); 


CE_MASK TO R_JUSTIFY_MASK - 1) : 


'¢ 
E format 


PULULUPVSULUSVLVSV SUSU SUSU ST SUSI STUSSY 
090909090909 08 SI NIN SISININ NNN O 


= 


WIAA 
oO 
w 


OO 
eae 
WOO 000090000 


Be Be Oe Be Be Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Be Se Os Oe Be Oe Oe Os OH TE Ss Oe Os Oe Os Os Oe Oe OH Os Oe Oe OF Os Oe Os Os Oe Oe SFOs Oe Os Oe Os Oe Ss Se Orestes 
MIMIPOPOPOPONOTOPoT 
o 


WAAL AAA BBE ERR ER ER REE EE PWS 


IF NOT BASSCVT_OUT_F_E (.PARAM_BLK CELEM], .PARAM_BLK CINTEGER_DIGITS), 


—_—_ 


-——_-- 


BASSSFOR.INT 


607 
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UT_ARG = convert and format 14-Sep-1 BASRTL. BASFORINT.B 
-PARAM_BLK CFRACTION_DIGITI 


2 
Virtw vue 


S 
T 
0 : 
608 9 (PARAM-BLK CPU_MASK]~= .PARAM BLK CPU_MASK] AND K_CVT_FLAGS; .PARAM_BLK CPU_MASK 
), OUT STR_LEN, .PARAM BLK CRET_STRI, 
610 Be CURRENCY_DESC, DIGIT_SEP_DESC, RADIX_PT_DESC) 
ot) 0 ~ THEN 
gi 09 ! E format will only not fit when a negative number is expected to fit in a 
614 10 ! field of width 1. 
615 11 l= 
o1g \§ BEGIN 
61 1 
213 14 '¢ 
61 15 ! The number will not fit into the field width supplied. So the 
1 } number is returned in Print format with a '% ° appended. 
6 ¢ 18 
6 19 LOCAL 
3 Y PERCENT_DESC : BLOCK (8, BYTE]; 
6 $ § PERCENT_DESC CDSCSB_CLASS] = DSCS$K_CLASS_S; 
6 PERCENT_DESC COSCSB_DTYPE) = DSCSK_DTYPE_T; 
628 4 PERCENT _DESC COSCS$W_LENGTH] = 1; 
629 5 PERCENT-DESC CDSCS$A-POINTER] = PERCENT; 
6 6 BASSCV U e LK CELEMJ], 0, OUT_STR_LEN, DSC, 0); 
1 f EIRCCeWnas T.PARAM_BLK CRET_STRJ, .PARAM_BCK CRET_STRJ, PERCENT_DESC, DSC); 
a: 
6 0 
6 


LSE 
STRSCONCAT (.PARAM_BLK CRET_STRJ, .PARAM_BLK CRET_STRI, DSC); 
COTHERWISE) : 


1+ 
Text formats 


SEREUNS 


SAASAAOOO 
FE rww 


TES BASSSSTOP (BASSK_PRIUSIFOR); 


SF 


END; 
[DSC$K_DTYPE_DJ : 


'¢ 
Floating - double precision 


AUikwWnr—OO® 
Fe ek et eh ek eh a hed a ah aad ah os 


BEGIN 
SELECTONEU .TEMP_MASK OF 


CO TO E_MASK = 1] : 


te 
} F format 


RAM AAD AAR Be 
DONOUEWN—OCOn 


3 


AAA AAA AAA AAA AAA 


AAWAWN A. AAA. AANA AAAA NIAAA NIAAA AIAN AIAN NAINA ANNAN NINA ANNA 


AANA AINA ANAIIPIPPYIPINININIAID HMMA AMMA NNN BB BE EEE EEE EE EEF EAA Ew 


Se Se Se Se Se Se Se Se Be Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Ge Se oe Se Ge oe Ge Ge Se Ge Ge SF Se Ge Se Ge oe Se Se Se Se Se Se Ge SF Ss Se Se oe Se Ge 
POPOPONOPONI NUNN Pon fony 


DWONOA NE WO OONAUE WN O OONOUE Wh 


PAA 


Se: 
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BAStS # OUTPUT_ARG = convert and format “ 1 =300n 138% 90:82 ‘9 BASRTL.SRCJBASFORINT. age. :1 . a} 
3 26646 9 ; IF NOT BASSCVT .OUT_D_F (,PARAM_BLK_CELEM], .PARAM_BLK CINTEGER_DIGITS), 

3 2665 .PARAM-BLK~ FRaction DIGIT) 

; 666 (PARAM-BL oP ake BLK CPU_MASK] AND K_CVT_FLAGS; 

3 266 .PARAM BLK Pus RAK , 

; 668 OUT STR_L .PARAM_BLK CSCALE_FACTOR] ! Scale factor 

; 66 CURRENT BESCe Sicit _SEP-DESC, RADIR_PT_DESC) 

3; 2670 THEN 

; ef 4 BEGIN 

: 267 4 

3: 2674 4 "the number will not fit into the field width supplied. So the 

3 of? 2 } pater is returned in Print format with a ‘% ° appended. 

: 267 4 

: 2678 4 LOCAL 

: 679 4 PERCENT_DESC : BLOCK (8, BYTE]; 

3 2687 4 PERCENT_DESC [DSCSB_CLASS] = DSCSK_CLASS_S; 

; 68¢ 4 PERCENT_DESC CDSCS$B_DTYPE] = _DSCSK- DTYPE-T; 

3 268 4 PERCENT_DESC CDSC$W-LENGTH 

3 2684 4 PERCENT _DESC DSCSA POINTER) = PERCE 

> 2685 381 4 BAS$CVT~OUT_D_G (.PARAM ELEM. *OUT_STR_LEN DSC, .PARAM_BLK CSCALE_FACTOR]); 
; 8¢ 4 STRSCONTAT T.PARAM_BLK tRET.. cet 0,0 _BCK CRET_STRJ, PERCENT-DESC, DSC); 

3 268 B3 4 END 

3 2688 84 ELSE 

; 689 385 STRSCONCAT (.PARAM_BLK CRET_STRJ, .PARAM_BLK CRET_STRI, DSC); 

: 2691 387 CE_MASK TO R_JUSTIFY_MASK - 1] : 

+ 269 388 

: 269 389 1+ 

3: 2694 390 if format 

; $696 391 

; $39 39 IF NOT BASSCVT _OUT_D_E (.PARAM_BLK CELEM], .PARAM_BLK CINTEGER_DIGITS), 

3 2698 3394 RAM~BLK™ ErRact 10M DIGIT 

: 2699 95 4 (PARAM BLK ASK) "= ike BLK CPU. MASK] AND K_CVT_FLAGS; .PARAM_BLK CPU_MASK 
; 700 396 ), OU RLLENT. MP ARAM BLK CRET_STR],~.PARAM BLK CSCACE_FACTOR], ~! Scale fact 
> 2701 397 CORRENCY “OESE. DIGIT_SEP_DESC, RADIX_PT_DESCT | 
: 270 398 THEN 

: 270 399 4 BEGIN 

+ 2704 400 4 

: 2705 401 4 '4 

3 2706 402 4 i The number will not fit into the field width supplied. So the 

: 44 403 4 i mumber is returned in Print format with a ‘% ' appended. 

: 2708 404 4 ie 

: 2709 405 4 

: 2710 406 4 LOCAL 

: au 407 4 PERCENT_DESC : BLOCK (8, BYTE); 

: ng 409 4 PERCENT_DESC [DSCS$B_CLASS] = DSC$K_CLASS -§: 

> 27146 419 4 PER cENT “DESC DSC$B- “DTYPE] = DSCSK-DTYPE-T 

+ 2715 411 4 PERCENT-DESC COSC$W-LEN TH) = 1: 

; ns 418 ¢ piesevi “OUT b DScSA*POINTERD = Peacen cep “OUT STR_LEN, DSC, .PARAM _BLK CSCALE =FACTOR); 
: 2718 414 4 STRSCONTAT v paral _BLK chet Sis ie “obi -BCK CRET_STRJ, PERCENT-DESC, DSC)? 

+ 2719 415 & END 

: 2720 416 3 ELSE 


eS re a oe RE a So Tee 


—_—_—__ 


BASSEFOR INT BASSSFORMAT_INT = Basic format interpreter 16- 19-19 4 t 99: ey: 96 AX-11 Bliss-32 V4.0-7 Page 70 
1 OUTPUT_ARG = convert and format 16-Sep-1984 BASRTL.SRCJBASFORINT. 4 2:1 (11) 
; ? 1 417 STRSCONCAT (.PARAM_BLK CRET_STRJ, .PARAM_BLK CRET_STRI, DSC); 

3 27 4 18 COTHERWISE) : 

: , ¢ ¢ 1 '¢ 

: 27 § 4 : _Text formats 

: $f 15% 

: o7 § 425 BASSSSTOP (BASSK_PRIUSIFOR); 

+ 2730 4 6 TES; 

: 2751 4 

g f ¢ ; 4 END; 

: o7 430 CDSCSK_DTYPE_P) : 

3 te? rt} . 

3 27 4 j Pierce decimal string 

: $t36 re 

; 740 4 é BEGIN 

+ 276 438 SELECTONEU .TEMP_MASK OF 

Be BB i 

> 2745 441 [0 TO E_MASK = 1] : 

+ ig : 

> 2748 bab iF format 

an ‘ 

: 2751 44 IF NOT BASSCVT _OUT_P_F (.PARAM_BLK_CELEM], .PARAM_BLK CINTEGER_DIGITS), 
> 275 448 ARAM~BLK~ FRACTION DIGIT) 

3 275 449 4% (PARAMBLK PU_MASK]~= Slain _BLK CPU_MASK] AND K_CVT_FLAGS; 
: 734 450 gpARAn BLK Pu MASK), 

+ 2756 45¢ CURRENCY atin Sit? _SEP_DESC, RADIX_PT_DESC) 

+ 2757 45 THEN 

: 275 454 4 BEGIN 

fe HE ' 

+ 2761 139 4 i The number will not fit into the field width supplied. So the 
3: 276 458 4 _fumber is returned in Print format with a '% * appended. 
We i ‘ 

> 2765 461 4 LOCAL 

: 766 46 4 PERCENT_DESC : BLOCK (8, BYTE); 

: 2768 464 4 PERCENT_DESC [DSCS$B_CLASS] = DSCSK_CLASS_ $: 

+ 2769 465 4 PERCENT_DESC [DSC$B-DTYPE] = DSCSK-DTYPE-T 

+ 2770 466 4 PERCENT DESC Dsc$u-L LENGTH) 

om He Sey EH tases ARAM ELERSCEAouy sn sen, 060), 

+ 277 3 4 STRSCONCAT T.PARAM_BLK chet SiRI, “pdeag “BCk CRET NErRa. PERCENT_DESC, DSC); 
: sire rt ae eusee 

: on Ame ; STRSCONCAT (.PARAM_BLK CRET_STRJ, .PARAM_BLK CRET_STRJ, DSC); 


— ee ee ae ne 
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| BASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 1b-3e 1984 00:29: AX-11 Bliss-32 V4.0-74 P 71 
ats OUTPUT_ARG = convert and format . 1 ~Sep-19 4 99:82:98 BASRTL SRETBASFORINT 682: 1 09 41) 


8 4 ‘ CE_MASK TO R_JUSTIFY_MASK = 1) : 
eo Ne 
: ormat 
me ‘ 
7 0 IF NOT BASSCVT_OUT_P_E (. PARAM BLK _CELEM], .PARAM_BLK CINTEGER_DIGITSI, 
785 1 .PARAM_BLK” CFRACTION_DIGITJ 
7 ; (PARAM-BLK CPU_MASK]~= .PARAM BLK CPU_MASK] AND K_CVT_FLAGS; .PARAM_BLK CPU_MASK 
7 $7 ), OUT LEN, .PARAM_BLK CRET_STRI, 
7 CURRENCY_DESC, DIGIT_SEP_DESC, RADIX_PT_DESC) 
f 9 Be am THEN 
791 ! E format will only not fit when a negative number is expected to fit in a 
r3¢ : ! field of width 1. 
32 90 2° BEGIN 
795 491 
a 136 '+ 
79 9 ! The number will not fit into the field width supplied. So the 
798 94 ! number is returned in Print format with a '% * appended. 
799 495 != 
800 49 
801 49 LOCAL 
B08 +38 PERCENT_DESC : BLOCK (8, BYTE); 
804 0 PERCENT_DESC COSCSB_CLASS] = DSCSK_CLASS_S:; 
0 PERCENT_DESC CDSC$B_DTYPE] = DSCSK-DTYPE_T; 
8 0 PERCENT_DESC LOSCS$W_LENGTH) = 1; 
80 0 CENT— DSCSA-POINTER] = PERCENT; 
808 BASSCVT_OUT_P_G (. PARAM BLK EEL EA. 0, OUT_STR_LEN, DSC); 
809 STRSCONCAT T.PARAM_BLK CRET_STRJ, .PARAM_BCK CRET_STR], PERCENT_DESC, DSC); 


ELSE 
STRSCONCAT (.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STR], DSC); 


COTHERWISE) : 
'¢ 
} Text formats 
Tes BASSSSTOP (BASS$K_PRIUSIFOR); 


END; 
CDSC$K_DTYPE_G) : 


SOMBVAARUNISSHVS AP ANOS 


'¢ 
G Floating 


BEGIN 
SELECTONEU .TEMP_MASK OF 


S 


AIA POPOPOPONOPONINI WWW WNW SB BRR E EE EEE EE PW EI 
wv 
m 
» 
m 
z 
~ 
o 
m 
“ 
o 


See ee eel sl ah ah ah ah Ah Ab Ah Ah Ab ah ab ob ob Ab Ab Ab ab a he 


PROPRIO 2 2 oe 


POMRNUTUNUNUNININ 2 
FUNSSSSONSEORUN MS See reRwN—o 


SOONG UE Ww 
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| BASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter ro -1984 9: AX-11 Bliss-32 V4.0 7 
att OUTPUT_ARG = convert and format , 14-Se Het 90: 2 98 BASRTL.SRC IBASFORINT. % 2:1 Page 45 
3 5 1 
; § CO TO E_MASK = 1) : 
ts 
; 6 5 i F format 
; § 3 IF NOT BASSCVT _OuT. (.PARAM_BLK_CELEM], .PARAM_BLK CINTEGER_DIGITS), 
3 M-BLK~ Frac TION -bTGIT) 
3 4 40 4 tPARAR” “BLK [CPU_MASK ie din BLK CPU_MASK] AND K_CVT_FLAGS; 
3 5 4] . PARAM BLK CP UEMASK Sk}), 
; es CURRENCY DESC DIGIT_SEP_DESC, RADIX_PT_DESC) 
; 45 4 BEGIN 
3 ey 28 4 
3 5 47 & 1+ 
3 B26 548 4 i The number will not fit into the field width supplied. So the 
3; 285 549 & : _number is returned in Print format with a '% ' appended. 
3 2854 550 4 ! 
3 2855 551 4 
: 856 22¢ 4 LOCAL 
; 330 22? 4 PERCENT_DESC : BLOCK (8, BYTE); 
: 2859 555 4 PERCENT_DESC [DSC$B_CLASS] = DSCSK_CLASS_ $: 
3 2860 296 4 PERCENT_DESC [DSC$B_DTY Ped = aPSCsKe DTYPE-T 
3 2861 557 4&4 PERCENT_DESC COSCS$W_LENGTH 
; 862 558 4 PERCENT _DESC DSCSAE POINTER = ibencen 
3; 286 559 4 BASSCVT_OUT_G PARAM BLEAJ Maur STR_LEN, DSC) 
; 86% 260 4 STRSCONCAT r Porat BLK CRET. cet * * PARAM” BCk CRET_STRI, PERCENT DESC, DSC); 
; 866 26 ELSE 
3 +44 267 STRSCONCAT (.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STRJ, DSC); 
; 869 265 CE_MASK TO R_JUSTIFY_MASK - 1) : 
: 2871 206 - 
3 ore 568 if format 
ere 385 
: 2875 571 IF NOT BAS$CVT _OuT_ (.PARAM_BLK_CELEMJ, .PARAM_BLK CINTEGER_DIGITS, 
3 B76 378 M-BLK™ Fiction oIGITI, 
3 287 573 4 (PARAR™ “BLK Sk)"= .PARAM BLK teu _MASK] AND K_CVT_FLAGS; .PARAM_BLK CPU_MASK 
3 a78 574 ), OUT-STR R LENT PARAM BLK CRET 
3 209 wil tORRENCY DESC, DIGIT_SEP_DESC, RADIX’ PT_DESC) 
; Bet 278 r BEGIN 
3 Be 578 4 
3 tt 579 4 14 
3 580 4 i The number will not fit into the field width supplied. So the 
3 bbe : 1 ? t number is returned in Print format with a '% * appended. 
; 5 5 4 
3 Bae 5 4 LOCAL 
: a4 2 5 ‘ BERCENT DESC : BLOCK (8, BYTE); 
+ 2891 5 $ 4 PERCENT_DESC CDSC$B_CLASS] = DSCS$K_CLASS_S; 
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ORMAT_INT = Basic format interpreter 16-Sep-1 9: AX-11 Bliss-32 V4.0- 
: 12: Sep-1964 99: §2 98 BASRTL. SRC tYaasrOnint 682: 31 
PERCENT_DESC [DSC$B =PIVPE) s fa tw DTYPE_T; 
PERCENT _DESC DSCSW-LE 
SHENG es eee 
STRSCONAT T.PARAM_BLK CRET SIRI, “ebiad BCk CRET_ é1Ri, PERCENT_DESC, DSC); 


4 
4 
4 
4 
| 
4 
® 
& 
4 
4 
4 
4 
8 
4 
4 
4 
4 


T_ARG = convert and format 


ELSE 
STRSCONCAT (.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STRI, DSC); 


COTHERWISE) : 


‘4 
4 Text formats 


Tes BASSSSTOP (BASSK_PRIUSIFOR); 


END; 
CDSCSK_DTYPE_H) : 


'¢ 
H Floating 


BEGIN 
vase >| sae - TEMP_MASK OF 


CO TO E_MASK - 1] : 


'¢ 


a F format 
IF NOT BASSCVT _OUT_H_F (.PARAM_BLK CELEMJ, .PARAM_BLK CINTEGER_DIGITS), 
ARAM_BLK™ EFRACTION. oIGIT) 

(PARAM L _MASK odin _BLK CPU_MASK] AND K_CVT_FLAGS; 
.PARAM™ BLK PU-MASK 
OuT ST psc 

fan CURRENCY DESC. Steet nee peer. RADIX_PT_DESC) 

BEGIN 


'¢ 
i The number will not fit into the field width supplied. So the 
i number is returned in Print format with a ‘'% ° appended. 


LOCAL 

PERCENT_DESC : BLOCK (8, BYTE); 
PERCENT _DESC [OSCSB_ cL Ass = DSCSK_CLASS_S; 
PERCENT_DESC [DSCSB_DTYPE) = Bs tea DTYPE-T; 
PERCENT_DESC CDSCS$W"LENGTH) 


Page 73 


(11) 
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BASSSFORMAT_INT = Basic format interpreter 18-5 “19 9: AX-11 Bliss-32 V 
QUTPUT_ARG = convert and format” mets ah ett et et Og Pt 
PERCENT DE DESC CDSCSA POINTER] = PERCENT 
S$CVT"O (.PARAM_BLK CELEMJ, 0 ‘ouT_STR_LEN psc); 
Bras CONCAT TH Paral BLK cRET. STR), .PARAM_BCK CRET_STR 


CE_MASK 


'¢ 


THE 


'¢ 


TES; 
END; 


Pee ee eee eee ee ee ee Pat at at et et et et et ot ot ot ot ot ot ot ot le ee ee Pe oe oe 


ELSE 


IF NOT eer ~pul ef 


ELSE 


STRSCONCAT (.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STRI, 
TO R_JUSTIFY_MASK = 1) : 


format 


tract iON DIGIT 


4 «0-748 
RINT.652;1 
PERCENT_DESC, DSC); 


DSC); 


(PARAM BLK _CELEM], .PARAM_BLK CINTEGER_DIGITSI, 


Pa 74 
aD 


(PARA “BL PU_MASK] "= PARAM ae CPU_MASK] AND K_CVT_FLAGS; .PARAM_BLK CPU_ MASK 


LEN; PARAM BLK CRET 
tORRENEY “ESE. DIGIT_SEP_DESC, RADIX. PT_DESC) 


N 
BEGIN 


'¢ 
i The number will not fit into the field width supplied. 


So the 


} _number is returned in Print format with a ‘'% ' appended. 


LOCAL 
PERCENT_DESC : BLOCK (8, BYTE); 


PERCENT_DESC COSCSB_CLASS] = DSCS$K_CLASS_ F 
PERCENT_DESC COSCSB_DTYPE] = DSCSK K-DTYPE_T 


“our STR_LEN, DSC) 


VT“OUT_H_G (.PARAM LEM 
AT TPA i i “ebiad _BCK CRET_STRI, 


BA 
STRSCONTAT t" PARAM BLK cet Sik 


STRSCONCAT (.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STRI, 


COTHERWISE) : 
‘ Text formats 


BASSSSTOP (BASSK_PRIUSIFOR); 


CDSCSK_DTYPE_T) : 


PERCENT _DESC, DSC); 


DSC); 


aS Ss ss 
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BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss- 4.0-7 
OUTPUT_ARG = convert and format : 12-38-1$8e 99:82:98 - RC} AORN 


BASRTL. 


'¢ 
! Allocate a souperery and make it a fixed length string so that 
} truncating and padding occur properly. 


STRSGET1_ DX (PARAM_BLK [CHARACTER], DSC); 
DSC CDSCSB_CLASS] = DSC$K_CLASS_S; 


1+ 
Based on the bits in PU_MASK, go do the right type of justification 
re -PARAM_BLK CPU_MASK] OF 

CL_JUSTIFY_MASK] : 

BEGIN 

1+ 
! Left justify the string in the return strin 
} This 


STRSCOPY DX_R8 (DSC 


-PARAM_BLK_CELEM])); 
gIROCONCAT T. PARAM 


BLK CRET“STRJ, .PARAM_BLK CRET_STRI, DSC); 


CR_JUSTIFY_MASK] : 
'¢ 
! Right justify the string. 
! Use concatenate to prefix the right number of spaces to the 
! front. If overflow occurs, then left justify the string 
and truncate on the right. 
BEGIN 


LOCAL 
LENGTH; ! Length of the element to format 


LENGTH = .(.PARAM_BLK CELEM])<0, 16>; 
IF LENGTH GEQ .PARAM_BLK [CHARACTER] 
BEGIN 


'+ 
; String overflow 


STRSCOPY_DX_RB (DSC, .PARAM_BLK CELEM)); 
STRSCONCAT T.PARAM_BLK CRET“STR, .PARAM_BLK CRET_STRI, DSC); 


ELSE 
BEGIN 


BASFORINT. 


should just amount in a copy. Truncate on the right if necessary. 


nN 10 

ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 Pa 76 
att = OUTPUT_ARG = convert and format ° 1 =3007 1382 90:82:98 EBASRTL SRe BASFORINT-682:1 9d 
; Ose 760 ‘+ 

3 5 f 1 The string will fit; do an RSET. 

: S06? 408 
; 764 BASSRSET (DSC, .PARAM BLK CELEM)); 

; 06 765 STRSCONCAT (.PARAM_BLR CRET_STRI, .PARAM_BLK CRET_STRI, DSC); 
; 3070 768 4 END; 

; 3071 767 4 
3 ae re8 ; END; 
3 Bre 7 CC_JUSTIFY_MASK] : 

3 Bf? ee ? BEGIN 
; OFF 773 4 ‘+ 
3 a8 774 4 ! This is a combination of concatenating spaces on the front and 
3; 307 775 4 ! the end if necessary. 

; 3080 776 4 ! If overflow occurs, left justify the string and truncate on the 
; 3081 777 & ! right. 
3; 308 ere 4 !- 
3; 308 779 4 
3; 3084 780 4 LOCAL 
3 nH Ay ? LENGTH; ! Length of the element to format 
; 087 788 ? LENGTH = .(.PARAM_BLK CELEMJ)<0, 16>; 
; 3089 785 4 IF .LENGTH GEQ .PARAM_BLK [CHARACTER 
3; 3090 786 4 THEN 
3; 3091 787 ~«5 BEGIN 
3; 309 788 
3; 309 789 '¢ 
3 3094 790 «5 ! String overflow 
3 Bae ad !- 
; 097 498 STRSCOPY_DX_R8 (DSC, .PARAM_BLK CELEM)); 
; 3098 794 5 STRSCONCAT T.PARAM_BLK CRET-STR], .PARAM_BLK CRET_STRI. DSC); 
3; 3099 795 5 END 
3; 3100 796 4 ELSE 
; 3101 797 (5 BEGIN 
3; 310 798 
3; 310 799 '¢ 
3 3104 800 5 ! The string will fit; do an RSET into the left part followed by a copy 
3 196 80 : into the rest of the string 
: 310 
3 + 804 LOCAL 
3; 31 805 T_LENGTH ! Temp length for STRSGET1 
; 110 80 T7DSC : BLOCK £8, BYTE]; =! Temp descriptor 
; ig 808 T_LENGTH = PARAM “ve CCHARACTER] = ((.PARAM_BLK CCHARACTER] + 1) = .LENGTH)/2; 
3 311 809 : T-DSC COSCSW_LENGTH) = 0; 
: 3114 810 T“DSC CDSCSB"CLASS] = D {Sk _CLASS_D; 

3 3115 811 TDSC COSCSA_ POINTER) = 0; 

: 116 aig STRSGET1_Dx TT_LENGTH, T_OSC); 

3 311 1 T_pS¢ COSC$B_CCASS) = DSCSK_CLASS_S; 

; 3118 si% BAS$RSET ct 63C .PARAM_BLK”CELEM]); 
: 3119 15 STRSCOPY_DX7RB (DSC, T_BSC); 


11 
ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter Ib-5e 1984 00:29: AX-11 Bliss-32 V4.0-74 P 77 
BASS UT_ARG = convert and format ence 1 Re 99:82:98 eaKsa teed saaseOniar oS2s1 29° 41) 
; STRSCONCAT (.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STRI, DSC); 
T pst CDSCSB_CLASSI = DSCSK-CLASS_b; 
STRSFREE1_DX~(T_DSC); 
END; 
END; 
CEXTEND_MASK] : 
BEGIN 


14 
! Extended ptrine 

! Copy the text into the destination string and pad with spaces if 
there is still room at the end. 


LOCAL 
LENGTH; ! Length of the element to format 
LENGTH = .(.PARAM_BLK CELEM])<0, 16>; 


IF _ .LENGTH GEQ .PARAM_BLK CCHARACTER) 
THEN 


+ 
String overflow 
. STRSCONCAT (.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STR], .PARAM_BLK CELEM]) 
BEGIN 


14 
The string will fit; do a copy. 


STRSCOPY DX_R8 (DSC, .PARAM_BLK CELEM)); 


AANIN AAAI AINA AANA AANA WWIII NANA AANA ANNAN 
a a ee ee ee ce a a a a a a a ee a a ee ae a a a el cd a a a ee a ee ec a ee ee a ee a ce ce a a el 
DPDPEDA srs & BEE BE EAA inoponopofononorornorny 
WR —CODNAVEWN —O OONOVEWD “OO ONOUSWN—O OCONOUE WO 
Pw Otte ee eee ee eee Pv WW WW Ve oo? or of ot ot oP a? ot ot ot ot ot ot ot ot ot et et hd dd 


| LL eames T.PARAM_BLK CRET_STR], .PARAM_BLK CRET_STRI, DSC); 
8 
8 END; 
tH4 
58 COTHERWISE] : 
523 
64 60 '+ 
65 861 ! Error - format is for numeric element 
66 50¢ le 
67 86 
68 864 BASSSSTOP (BASS$K_PRIUSIFOR); 
$8 865 ES; 
0 866 
71 867 DSC CDSCS$B_CLASS] = DSCSK_CLASS_D; 
ie 308 END; 
7 9 
74 870 CINRANGE, OUTRANGE) : 
75 871 
76 872 '¢ 


ee —— --—  -- a rar 
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ASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 1hedep=1 4 9: AX-11 Bliss-32 V Pa 7 
at ; OUTPUT_ARG = convert and format . 12288871382 99: 2 98 BASRTL.SR ReIB BASFOR Ar B82: 31 93 
: 3177 73 ' Unsupported data types 
i $178 7% Bpenad ” 
; 317 75 
: 3180 6 LIBSSTOP (OTS$_FATINTERR); 
: 1 g TES; 
: 31 § ig rr 
3 : ¢ eat a Return the temporary string allocated. 
: 31 8 STRSFREE1_DX (DSC); 
: 189 B88 RETURN fle 
; 3188 884 ND; ! End of routine OUTPUT_ARG 
OFFC 00000 OUTPUT_ARG: 
.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 3 3076 
SE 20 ¢2 0000 SUBL2 S ; 
SA 04 AC 00 0000 MOVL PARAM BLK. R10 : 311 
18 AE 020E0000 8F 00 4 MOVL A3G471936, 3: 313 
1€ AE 04 00011 CLRL DSC+4 : 313 
58 04 «AA i 00014 MOVAB 4(R10), R11 : 314 
52 6B 00 00018 MOVL (R11), TEMP_MASK : 
05 6B OD €1 00018 BBC sis! (R11), 1$ > 314 
52 2000 8F AC OOOTF XORW2 #8192, TEMP_MASK > 314 
05 6B OC €1 00024 18: BBC wi2, (R11), 2$ : 314 
52 1000 8F AC 00028 XORW2 #4096 TEMP_MASK : 314 
05 6B OE €1 90020 2$: BBC (R11), 73$ > 314 
52 4000 8F AC 00031 XORW2 #ieseu, TEMP_MASK : 315 
16 06 08 AA CF 00036 3$: CASEL 8(R10). #6, 22 > 315 
002€ 003E 00 : 003E 00038 4$: WORD a : 
002E 002E 019 00F9 0004 6$-4$.- : 
002E 002E 002E 046E 00048 6$-4$,- : 
0246 002E 002E 002E 0005 5$-4$.- : 
002 002€ O02E 002E 00058 12$-4$,- ; 
039A O2F 002E 00063 18$-4$,- ; 
5$-4$,- 3 
5$-4$,- $ 
45$-4$,- : 
5$-4$,- : 
5$-4$.- : 
rt rt te F 
$-4$,- 5 
5$-4$,- 3 
5$-4$.- : 
5$-4§,- : 
$-4$,- 3 
$-4$.- : 
2$-48,- ; 
$-4$,- 3 
$-4$,- ; 
et 
000000006 ar bp 0069 5$: PUSHL #OTS$_FATINTERR : 3876 
000000006 00 006F CALLS #1, LIBSSTOP : 


| 
| 


dD 11 
| BASSSFOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 P 79 
ai OUTPUT_ARG = convert and format . 102308-1 384 99:82:98 BASRTL.SRCIBASFORINT .B 231 29 1) 
052d 31 0007 BRW 55 : 
10 AE oc BA 6 O78 6$ CVTLD 335(R10, D_ VALUE : 3173 
0000007F BF 5 of 3 CHP TEMP_MASK, #29 : 3178 
0000000' EF 9F O08 PUSHAB RADIX_PT_DESC > 3184 
909 000° EF 9F 000 PUSHAB DIGIT-SEP_DESC : 
000000° cE F 009 PUSHAB CURRERCY_DESC : 
E 04 00 LRL = = ( SP) : 
28 «AE «OOF 00098 USHAB DSC ; 
14 AE 9F 0009E PUSHAB OUT STR_LEN : | 
68 FFFF8FAO 8F CA OOOAT ICL2 4-28 68; (R11) > 3186 
6B 0D OOAB PUSHL (R11) + 3187 
10 AA DD OOOAA PUSHL 19¢R19) : 3185 
14 AA pp OOAD PUSHL 20(R10) : 3184 
34 AE OF 9080 PUSHAB D_VALUE ; | 
000000006 00 OA FB 9008 CALLS #10, BASSCVT_OUT_D_F : | 
47 11 OOOBA BRB 10$ ; 
00000080 8F 3¢ D1 0008 7$: CMPL - TEMP_MASK, #128 > 3211) 
03 1€ 000C BGEQU 9$ : 
03D1 31 000C5 8s: BRW 43$ : 
OOOO00FF  8F 52 D1 000C8 9$: CMPL §_ TEMP_MASK, #255 ; 
F4 1A OOOCF BGTRU 8$ : 
00000000" EF 9F 00001 PUSHAB RADIX_PT_DESC > 3217 
00000000" EF 9F 00007 PUSHAB DIGIT-SEP_DESC : 
00000000' EF oF 9900p PUSHAB CURRENCY_DBESC : 
E D4 O00E CLRL = = ( SP) : 
6A DD 000E5 PUSHL (R10) : 3220 
14 AE 9F OO0E7 PUSHAB OUT _STR_LEN : 3217 
6B FFFF8FAO 8F CA OOOEA BICL2 #-28768, (R11) : 3219 
6B DD OOOF1 PUSHL (R11) : 
10 AA DD 000F3 PUSHL 16(R10) : 3218 
14 AA DD 00086 PUSHL 20(R10) : 3217 
34 AE OF O00F9 PUSHAB D_VALUE ; 
000000006 00 OA FB OOOFC CALLS #10, BASSCVT_OUT_D_E : 
0 50 59 00103 108:  BLBC RO, 11 : 
0380 31 00106 BRW 42$ F 
08 AE 010E0001 8F 00 00109 118:  MOVL #17694721, PERCENT_DESC > 3235) 
OC AE FSAG «CF O9E (00111 MOVAB PERCENT, PERCENT_DESC+4 : 3236 
7E 4 90117 LRL = (SP) : 3237 
1¢ AE 9F 00119 PUSHAB DSC ; 
08 AE OF 0011C PUSHAB OUT_STR_LEN : 
7E D4 OO11F LRL ss = (SP) : 
20 AE 9F 00121 PUSHAB D_VALUE ; 
000000006 00 05 FB 4 4 LLS #5, BASSCVT_OUT_D_G ; 
18 AE 9F 00128 PUSHAB : 3238) 
OC AE 9F OO12E PUSHAB PERCENT_DESC : | 
0348 31 00131 BRW : 
0000007F BF 3 D1 00134 128: = CMPL TEMP _MASK, #127 > 3263. 
1A 00138 BGTRU $ ; 
90000000" EF 9F 001 PUSHAB RADIX_PT_DESC : 3269 
0000000' EF 9F O14 PUSHAB DIGIT~SEP_DESC ; 
00000000" EF 9F 0014 PUSHAB CURRENCY_DESC ; 
4 AE 9F Ol4F PUSHAB DSC ; | 
0 AE OF 13¢ PUSHAB OUT STR_LEN ; 
6B FFFF8FAO 8F CA 0015 BICL2 @&- 8 687 (R11) > 3271. 
6B DD O19¢ PUSHL (R11) : i 
10 AA DD 0015E PUSHL 16(R10) : 327 
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ASSS$FOR_INT BASSSFORMAT_INT = Basic format interpreter 16-Sep-1984 00:29: AX-11 Bliss-32 V4.0-74 P 1 
st OUTPUT_ARG = convert and format . 12286871382 99:82:98 UBASRTL- SRE BASFORINT B82:1 ade H 
000000006 A Ff 4 CALLS #10, BASSCVT_OUT_D_E : 
| 88 wf 3 i 228: BLBC R 24 lt th : 
10 AE 010€ 000} F pO 238 MOVL @ Seecran PERCENT_DESC + 3411 
14 AE 4 CF 9E 0026 MOV PERCENT, PERCENT_DESC+4 : ale 
1¢ AA pb 6 PUSHL 28(R10) $ 341 
IC AE 9F 0026C 248 PUSHAB DSC : 
08 AE OF of PUSHAB OUT_STR_LEN : 
7E 04 2 CLRL © = (SP) : 
OC AA DD 00274 PUSHL VecR10) : 
000000006 00 0 FB 77 CALLS #5, BAS$SCVT_OUT_D_G : 
OS 3 fe BRW 40$ + 3414 
0000007F 8F ; D1 25$: CMPL -TEMP_MASK, #127 + 3441 
1A 99 BGTRU 26$ F 
90000000" EF 9F OOOBA PUSHAB RADIX_PT_DESC t 3447 
00000000" EF 9F 00290 SHAB DIGIT-SEP DES F 
00000000" EF 9F 00296 PUSHAB CURRERCY_B : 
4 AE 9F 0029C PUSHAB DSC : 
10 AE OF 90 OF PUSHAB OUT_STR_LE : 
6B FFFFBFAO 8F CA 002A2 BICL2 #28768, (R11) + 3449 
6B DD 002A9 PUSHL (R11) : 3450 
10 AA DD 002AB PUSHL 16(R10) : 3448 
14 AA DD 99 AE PUSHL 20(R10) + 3447 
OC AA DD 00281 PUSHL 12(R10) : 
000000006 00 09 FB 00284 CALLS #9, BASSCVT_OUT_P_F : 
45 11 00288 BRB 29§ ; 
00000080 8F 3¢ D1 002BD 26$: CMPL -TEMP_MASK, #128 + 3474 
03 1€ 002C4 BGEQU 28S : 
01D0 31 002C6 27$:  BRW 43$ : 
OOO00OFF BF 52 01 be¢9 8$: CMPL TEMP_MASK, #255 : 
F4 1A 00200 BGTRU 27$ : 
00000000" EF 9F 90¢b¢ PUSHAB RADIX_PT_DESC + 3480. 
90000000" EF 9F 002D PUSHAB DIGIT~SEP_ DESC F 
0000000" EF 9F O02DE PUSHAB CURRERCY_DESC F 
6A DD 00264 PUSHL (R10) + 3483 
10 AE 9F 00266 PUSHAB OUT _STR_LEN : 3480 
6B FFFFBFAO 8F CA 00269 BICL2 #-28768> (R11) 3482 
6B DD 002FO PUSHL (R11) : 
10 AA DD 00 re PUSHL  16(R10) : 3481 
14 AA DD O02F PUSHL 29(R10) : 3480 
OC AA DD 002F8 PUSHL g(R10) F | 
000000006 00 9 FB OoF CALLS 49, BASSCVT_OUT_P_E ; 
0 0 5 0302 29$:  BLBC RO, 30$ : 
0181 1 9 6 BRW 4 : 
10 AE 01060001 F dO 30$: MOVL $#17694721, PERCENT _DESC ; 502 
146 AE F3A5 CF 9E 00310 MOVAB PERCENT, PERCENT_DESC+4 : 350 
18 «AE OOF 1 PUSHAB : 3504 
04 AE OF 1 PUSHAB OUT_STR_LEN ; 
7E D4 0031C CLRL = = (SP) : 
OC AA DD IE PUSHL 12(R10) F 
000000006 00 04 FB CALLS #4, BASSCVT_OUT_P_G : 
0148 3 8 BRW ; 3595 
0000007F BF ; bt 6 8 31$: CHPL TERP_MASK. #127 ; 3532 
9000000" EF OF 6 PUSHAB RADIX_PT_DESC : 3538 
0 09 ' EF OF A PUSHAB DIGIT™SEP DESC ; 
0000000" €F 9F 00340 PUSHAB CURRERCY_BESC ; 
L 


-——— 


| 
ASSSFOR_INT tbr tat INT = Basic format interpreter 18-5 Sep-1 AX-11 Bliss-32 V4. Pa 
ate T_ARG = convert and format A 1 730071384 99: g2: 9 BASRTL.SR ne SeasrORINT 652: 31 94% 
AE OF 4g PUSHAB DSC ; 
6 AE 9F 0034 PUSHAB OUT STRALEN : 
6B FFFF8FAO 8F CA 0034 BICL2 &- 8 68; (R11) ; 3540 
68 0D PUSHL (R11) 3 3541 
10 AA DD PUSHL  16(R10) ; 3539 
14 AA DD PUSHL : (R10) ; 3538 
OC AA OD B PUSHL (R10) : 
000000006 00 09 FB ‘3 CALLS ae BASSCVT_OUT_G_F ’ 
00000080 = &F 3¢ pI 9 67 328: CPL TEMP MASK, #128 ; 3565 
0146 ¥ 0 19 33$: BRW 43$ : 
QOOOO0OFF BF D1 00373 348: CMPL TERP. MASK, #255 j 
F4 1A O037A BGTRU 33$ ; 
90000000" EF 9F 0037 PUSHAB RADIX_PT_DESC 3 3571, 
00000000" EF 9F 00 § PUSHAB DIGIT-SEP_DESC ; 
00000000" EF 9F 00 PUSHAB CURRENCY_BESC ; | 
6A DD 0038 PUSHL (R10) 3 3574 
10 AE 9F 00 PUSHAB OUT STR_LEN 3 3571 
6B FFFF8FAQ 8F CA 0039 BICL2 #28768; (R11) : 3573 
6B DD 0039A PUSHL (R11) : 
10 AA DD 0039C PUSHL 16(R19) ; 3572 
14 AA DD 0039F PUSHL 20(R10) 3 3571 
OC AA OD 99 ne PUSHL Wecr10) : 
000000006 99 9 FB OO3A CALLS 4&9, BASSCVT_OUT_G_E : 
0 0 £9 99 AC 35$: = BLBC RO 6$ ; | 
0007 31 OO3AF BRW 42$ : | 
10 AE 01060001 8F DO 00382 36$:  MOVL 17694721, PERCENT _DESC ; 3589 
14 F2FB CF «OE O03BA MOVAB PERCENT, PERCENT_DESC+4 : 3590. 
18 AE OF 039 PUSHAB : 3591, 
04 AE 9F 003C PUSHAB OUT _STR_LEN ; | 
7E 04 003¢6 LRL- = ; 
0C AA DD 003C3 PUSHL 12(R10) : 
000000006 00 04 FB 003¢ CALLS #4, BASSCVT_OUT_G_G : | 
90A1 31 0030 BRW 4 : 3592. 
0000007F 8F 3¢ D1 00305 37$: § CMPL §$TEMP_MASK, #127 ; 3619) 
33 1A 0030C BGTRU $ ; 
00000000" EF 9F 003DE PUSHAB RADIX_PT_DESC ; 3625 
00000000" EF 9F O03E4 PUSHAB DIGIT-SEP_DESC ; 
00000000" EF 9F OO3EA SHAB CURRERCY _BESC ; 
24 AE OF 00 FO PUSHAB ; 
10 AE OF O03F PUSHAB Out TR LEN ; | 
6B FFFF8FAO 8F CA 003F6 BICL2 (eit (R11) : 3627 
6B DD 003FD PUSHL 1) : 628 
10 AA DD OO3FF PUSHL (R10 > 3626 
14 AA DD 004 PUSHL  20(R1 ; 3625 
OC AA DD 004 PUSHL 12(R10) : 
000000006 00 09 FB 04 CALL BASSCVT_OUT_H_F ; 
4g 11 0040F BRB 9§ ; 
00000080 = 8F 3 D1 00411 38%: CMPL TERP_MASK. #128 3 3652 
F 1F 00418 BLSSU 438 : 
OOOO0OFF BF 52 D1 0041A CMPL ERP. MASK, #255 : 
6 1A 00421 BGTRU 43$ ; 
0000000° EF 9F 004 3 PUSHAB RADIX_PT_DESC ; 3658 
9000 * EF OF 004 SHAB DIGIT~SEP_DESC ; 
' EF 9OF O042F PUSHAB CURRERCY_DESC ; 
6A DD 00435 PUSHL (R10) ; 3661 
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000000006 
10 
14 


000000006 


000000006 


000000006 
000000006 
eeenes ’ 
00000800 
00000100 

18 
000000006 
00000200 


18 


04 
13 


00 


00 


1 AE 
FFFFBFAD pt 
B 

10 =AA 
14 AA 
OC AA 
; 
0100001 F 
mF 
18 AE 
04 AE 
7E 

OC AA 
04 

18 AE 
14 AE 
6A 

6A 

04 

1D 

18 AE 
6A 

6A 

03 

go 
000000006 Bf 
OOF D 

18 AE 
18 «AA 
02 

01 

6 

0 

0081 

6B 

1A 

0c =A 
50 

EA 

OC AA 
1¢ ag 
00st 

6B 

6D 
oc A 
9 
B 
18 AA 
59 
i: 

18 BA4 
i 

0 

14 «AE 


4 11 
Jo=300°1 


ee 19:82:58 


14-Sep-1 
9F 00437 PUSHAB 
CA Q045A BICL2 
DD 0044 PUSHL 
DD 0044 PUSHL 
DD 0044 PUSHL 
DD 0044 PUSHL 
F rhs CALLS 
E 455 39%: BLBS 
3 456 MOVL 
— 0045€ MOVAB 
9F 00464 PUSHAB 
9F 00467 PUSHAB 
D4 0046A CLAL 
DD 0046C PUSHL 
FB og CALLS 
9F 004 3 40$: PUSHAB 
9F 0047 PUSHAB 
DD 0047C 41$: PUSHL 
DD 0047 PUSHL 
fe 04 CALLS 
11 00487 B 
9F 00489 42S: PUSHAB 
DD 0048C PUSHL 
DD 0048E PUSHL 
FB 00490 CALLS 
11 00497 BRB 
DD 00499 43$: PUSHL 
FB 0049F CALLS 
31 Bpeas 44%: BRW 
9F OO4A9 45$: PUSHAB 
9F OO4AC PUSHAB 
FB OO4AF CALLS 
90 00486 MOVB 
D1 gaeee CMPL 
12 004C1 BNEQ 
31 004C3 46$: BRwW 
D1 004C6 47$: CMPL 
12 004CD BNEQ 
3C OO4CF MOVZWL 
D1 Boe} CMPL 
18 00407 GEQ 
DD 9k 44 PUSHL 
9F 0040C PUSHAB 
fo et CALLS 
3 4E6 BRW 
D1 Bee 8 48$: CMPL 
12 O004F BNEQ 
3C O04F MOVZWL 
f O4F CMPL 
GFA BGEQ 
C F SUBL2 
D 5 DECL 
§6 DIVL2 
E MOV 
8 CLRW 
0 3 MOVB 
D4 0051 CLAL 
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OUT_STR_LEN 
#28768; (R11) 
16(R10) 
(R10) 
(R10) 
#9, BASSCVT_OUT_H_E 


R 
#17694721, PERCENT DESC 
PERCENT, PERCENT_DESC+4 


pe STRLLEN 
12(R10 


) 
#4, BASSCVT_OUT_H_G 
pst 


oo, are eer 
NmPOOCOO 
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STRSCONCAT 
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ASSSSTOP 
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R10), LENGTH 
TH, 24(R10) 


R10) 
BASSRSET 
1), #512 


@12(R10), LENGTH 
sagen" $4(R10) 


4(R10), RY 
R9 


ag R9 
@24(R10)CR9J, T_LENGTH 


#2, T_DSC+3 
T_bsc¥4 
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3676 
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UT_ARG = convert and format 


1460 bytes, 


1 AE of 
000000006 00 : 03 Pe 
me Xi 
of Lal gp 
6 5 F 
000000006 ? 02 FB 
1 AE 4 
0 1 A 3 
000000006 00 1 P] 
1 AE 9F 00 
A 0D 3 
000000006 00 ; Fe 0 
a ew 
10 AE 9F 005 
000000006 00 4) ‘? 32 
00000400 = &F $8 »} Boe 
50 oc A 3C 098 
a so 8) Be 
oc Be 
50 18 AE 43 05 
51 OC AA D bpe 
000000006 00 16 005 
18 AE 9F 005 
6A DD 005 
6A DD 005 
000000006 00 H 4 32 
000000006 8F DD 005 
000000006 00 1 £8 05 
1B AE 2 90 005 
18 AE 9F 005 
000000006 98 01 4 05 
0 01 dO 005 
04 005 


Routine Base: 


_BASSCODE + 0948 


11 
1é-Bep-1964 00:29:96 yatctt BLis8-52 v4 0- 


3 PUSHAB 
1 PUSHAB 
1 CALLS 
vB 
PUSHL 
PUSH 
CALLS 
MOVAB 
MOVAB 
JSB 
4 PUSHAB 
44 PUSHL 
rt SHL 
4 CALLS 
4f OvB 
53 PUSHAB 
56 CALLS 
50 BRB 
SF 49% snes 
e8 MOVZWL 
$f CMPL 
BLSS 
7 PUSHL 
7 BRB 
77 50$ MOVAB 
78 MOVL 
7F JSB 
Bur ies 
BA PUSHL 
8 CALLS 
9 BRB 
95 538 PUSHL 
3 CALLS 
Ad 54$ MOVB 
“6 55% PUSHAB 
A CALLS 
ef MOVL 
B RET 


Hf STRSGET1_DX 


T_DSC 

#2, BASSRSET 

T OSC, R1 

psc 
RSCOPY_DX_R8 


) 
) 


oo 


STRSCONCAT 
gl -PSC+5 
STRSFREE1_DX 
>, #1026 


1 
(R10), LENGTH 
GTH, 24(R10) 


MO DAORAAKRMZVEA S&S Oe 2s -—-—- 
= 
oOo 
a 


oo 
—~ 


STRSCONCAT 


AS$K_PRIUSIFOR 
. BASS$STOP 
DSC+3 


Ses ane eee asso 


#1, STRSFREE1_DX 
#1, RO 


cd 


39251 


ASSSFOR_INT mw peel INT = Basic format interpreter 1-5 Sep-19 9: AX-11 Bliss-32 V P 5 
att nodute 4 ~3eer18he 99:82:58 — LoAsate seelaasronint os2;1 age 133 
: 139 ; 1 END "End of module’ 

; 135 ! End of module BASFORINT.832 
H PSECT SUMMARY 
: Name Bytes Attributes 
; ~BASEDATA 3 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC ALIGN(2) 
3 ASSCODE 3839 NOVEC *NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
; scansese SyEhel§ cocccece Pages Processing 
: File Total Loaded “Percent Mapped Time 
$ _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 19 0 581 00:01.1 
; COMMAND QUALIFIERS 
PLESS/CHECK OCF FELD, SMI TIAL .OPTIALZED/UOTRACE/L S94 158 BASF ORINT/OBJ90BIS BASF ORINT MSRC$:BASF ORINT/UPDATE=(ENHS$:BASFORINT 
ing Pe 3578 coge + 285 data bytes 


fleeces fines 03:07 66 
Lines/CPU Min: 9 
posonee/ Fee) 20864 
Y Used: 491 pages 
; cones ation Complete 


o 
ar 
=> 
wn 
= 
~ 
“~ 
x 
ce 
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